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14 P SK±»*4i4*K 4 *)&:feZti2>o ElTfc 1 3tt^^ V^fc, £f§ 

(01) L4 

h;K75jttsij-ei±, SrffiH3RfcPftf*L, wo 4 *-&«t$*L&o 

, riE*#is, k#r, m#rj ^tuib±s{± rm^j, wm, * 



(02) L2 

h>K3«8UT»4, f&SSSt t n?J4fr, W0 2Hfi?ii*o £*>»f§fl*3i_(<* 
V K) fill 1 i<^iKBI»A»*#x.fet>'S^SI»4, riEfli-fS, K#iSJ 



(03) L3 

(04) I 2 

C*yyK) {±11 1 4 1 6 ^r^Ctr^^tt^o i(DliiJH:4i fbtL&^J^fi, 

n»«#J RU, itLfe^»t4 TA^JJ <7)^^^^o 0 f^a#tt4, «x.tf, 

3, ktftCi©^^ h;K7)^TO{4|lI2 4#SSo 0<&K, L 2 <£>±fg t & &i£f&f4, £ 
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(05) 0 4 

rarsfrj »l-c, itL<b^ifi± rm^j witt^^o *a#fci±, 0flx-tf, 

5, afeEKK^flK** h;v<7>fcj&j?M£li(I] 2 6#ESo H^^, L3, L4^!H^4|.s§ 
it, ±K0 4 0»Jffi#*fl|j£-f aSll-C**,, 

(06) R 4 

rW0 4j "C*4 0 

R4tt, WO 4*W0 2 twjt»-t*aSa**fe-*"*>^"C**o ftS-ftLlf, R4ti*^^ 
^M35*5fe«l$^&o fcfctefrfci*. S F-Ci±R 4 t J; «9m^M#7& s ^?tL^)o_C^{i 

*u±, *jfe^wi±i63J:^M^J£ (**) LTjfcfc?-* sf 
X-lt^^m^^L^Kn^ (®*) £*l&»K££o dof^ffiti, R4i:^v-y M 

(07) R2 

rwo 2 j t?** 0 

R4 0*||i:rat32:#T?R2*^,*L{dr, R2t±, t^t 
#J-T?&£o £<&*&<&ffiftttR 4 i), IDSO^«oTv^o R4©# 

(08) R 2 C 

(r;»;K) l±0 1 4 KigC-C&aSft&o io*H*j|C4i ix*±S»±, TWO 2 
J T?** 0 CW** h/Wi, g^StSF»Slit5Tfi:OSF(DW0 4 tiff 
So £?>^? h>!/0*«|tt, R 2 t|W!C-C£>£o 

(09) R 3 R 

h;v<^asu-ei±, »HM^ffiR#fc W0 3«m£ftSo ^o^SWit 
(>y»;F) (±13 1 4 Ml 6 lcmCT^$tu-S 0 ££>i68&«3ifc#*.&*L*£B§»i, 
rwo3_|-c$>& 0 Y)l<<Dl£mt, R 4 i: |WJ ct<b & o 



ffiSE#2 004-3099195 
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(10) R 3 C 

So £Offeffi^l9:««>«*tt, R4 tlsjUt?, $g«-ra£H(i*fca S F« ( 
SftSo ioJfeSS«Hi»±, M*W (02 0) (DWfttLX&o>&'e£MZti2> 

(11) R 3 D 

S F W^&^^r-t"* fcv»d<fKJ3V>T, iOffcfflli^W bWlf^^S^l/?' hit 
§IPifcT«6£*L&o CLO&I§Mii, /^vHiii: (02 0) Og&55-£:LT 

(12) R3M 

SfcOt?**o BP*», TtWSFOT0 3 (#E^F^) tW»±fiOSFOW0 4 (*fe 

(13) S 4 

LJttt a «fcra f BP*>, *WJHo#ao*'C*a:i _ &'l>«>"e**o 

i-^t^ MVT?&S 0 ii^S*lv^^«:MHJo $)xJi, #5e?> 

v^o ^ilMS0"C{i^<7)^^*oXv>So 
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4. 6 PRDOKft 

(01) b*^fcO*l^36<li"*o 
W04=$4(W04 ic^i"^^ 
W 02=*2 (W 02 fcJRi-'** > 
W03=$3(W03 H^i"^ h ;v) 

(02) SF^Wl^ltSo 

SF = O0 (WO 4 +W0 2 +W0 3) 

HI 1 8 #Io 

(03) PRDWtC^ltJo 

PRD=SF^ 
HI 1 9 #Io 



4 7 $n ^tD^t^ 

v> £ 0 4 4 ±KO*«Sr J21T ^5£-^^>o 

(01) W0 4 t*i-±IU± f BtWO 4<OtOiS*je^fcUT?llfflt4>* t lii**o 

(02) W0 4i:Jit±^l±, H£SF<Z)W0 20£R££&.££: LtSItif^tB^o 

(03) WO 4 CJRi-^Rtt. PTFte^S F^WO 4 LTflJE-T £*ri*m* 

(04) WO 4 KJR-*-£Rfi, WT$L<r> S FcoWO 2 ^R«r^k L-C«ffi-r****tti* 

(05) WO 4 KJRi-±Rl±, Htt«)ft<5SFOW0 4<OiiS:^J:ltfJfflt5W 

(06) W0 4 fcJR-r±R»i, PtKTte^S FWWO 4 <D^M*1&&£ LTflJffi-t ^>*^m 

(07) ±IB (06) -CBSBTffiOS FWWO 4 <D±m*&&£ LTflJffl L^V^^lCli, 
PTft^S FOWO 4*>±RO'<* > A/»±^OfP4«H*i:POCffi**ll»-t^WO 4 

t : 35#h?,) wiiW£ic*i:tv^ 0 aai „ J _, ^.^ 

(08) W0 4fcJR-T£Rli, H±ttO S F OW 0 4 ©iffitft^t i Ltflfflt 

& _ 

(09) JilB (08) T?»_hffcOS FOW0 4 0±R«r*&/St Lt^lfflLfcv>*^|:ii, -ts& 

(07) kraC^Offlr«^*o *TttOW0 4 £JR-r±Rtt. *o«*fc**&jfitkb-c?ii 

ffltitfcmio Com®{±, IDSTtt0» (»S*:35#HB) fcH?tf*L*£*fc 



4. 8 SR*©-** Wv^oSgJl 

«^5-eti, S (H4, *51*:i4#Ha) 



#7C 



5 , : 17#!H) 
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«t2l*«ft, M«tt (*tr» 

W& (PS) ^5t«6$tL^>o-e*^o 

— -e ^ii^fjfHl (3. 5) ■e^PS«i^^t#stJo ni4c7) 

jftWfb-riit^W**^. (3. 4, 3. 7) fc£IH*«>BP«>a& 

o 

tu &fr*mmm%x~fcmzti2>ft&'e$>titf, a a a 



4. 9 £f»i:ffi#0#8fc _ _^ tj . 

Xl/yhttM. SF, PRD, (*ffl*ft-CttWBfls #v»tt5£* 

tb^E^F 2004-3099195 



#112 0 0 3 - 3 3 1 3 7 3 ^-v . ^ 

* 0 ^fci^t, Btaoffimf^ffl^iHtw^st-ri^Kia;*. 



4.11 b;K05e^SU 

(01) MK^fBft 
[0 0 11] 

(02) b;vasu* s i 2(7)^im^j^iS<^ii 0 J 

1212*^ AND Ai7^^^~L3|4=^ 

AND XtJ^S^fr^r- 
L3f4=g 



(03) > )^mSU s L 2 (Dm I fflft<D&8Z<DWft 

(04) h ^3fig||**L 3 T i zfc|&^#l§<^^ 1 5&&?>£iB<0B£9i 
L 3IS4«*£ 

L 3 <^^4 < Ki^l'y , -^7& s ^V^<^*IJS^^'*i" ; 5)o 

(05) h;vaglj75 ? L 3t?±m^A^T^-feX^-, X2j#fc3&#*-, m*T*-b* 

tBgE# 2004-3099195 



#12 0 0 3-3 3 1 3 7 3 



26/ 



NOP 

& 2 %L%) ic il ^ £ ^P*"T & o 
(06) h frffi&WL 4 <?)fg 1 ^^JO^ISOI^B^ 

L 3 ff§4lH$=£ 
AND L4I4»^ 



4 'H^ciw-r - ^ ^» ? ^v^^(7)fij^ 



(07) b ;V®SU^L 4 -eJR1±^^ffi^^ 1 ^^^IS^lftSB 

L 3^4llit= 1 
AND L 4^4Hit+^ 

(08) ^ }• A^m&fi^B^^ lM$}?>^M£<nMW 

• ScfB 
L 3 %£4t$M= 2 
AND L4^4Hit+^ 

L3 0i4Ut©f-^^lt|)^f, S-o, L4 0*4S«i:r- 



logt 1 



(09) >;vSSUrt ? L 4T-K^£^fc&^HfL<^l^^ifi^I&^ 

L 3I4IJI=^ 
AND L 4fg2 

L 3^^4iI^lCT'-^^ab^*-, -B.'O, L4<?> 

(10) ^ h frMMffO 4 1 $.&J<£>$£fB?>lftf3 

AND iH^JT^-t^-L 3fM =^ 

AND ffl*J!ll^-L3f 4=^ 

AND gMiTBLOgSFOR3D=M 

04«^4W^f-^^i^tffi*^7^t:f-^^^» ) B.o, ffi 

#T****-^L30fMiS^K^-*^£*». J-O, mMS£#*-OL3<0^ 
4«i:f-^^^#. g^ffif T B L O I S F © R 3 D S f W 
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(11) <*ir h ^BUt^R 4 <7>KS 1 £tt0>&fl&Oft | H 

(12) h )V|?l!i ? R 2 C 1 SU&©*1B*>ttW 
R 2 CfM1K#*2!£ 

R 2 C0^4 ! nI^^7 : *-^75 S: 5:V^^fiJ^ : Sr^l*1"So 

(13) h >uagU**R 2 <7)^ 1 ftjfeoS£IB<^Bi?l 

(14) ^ b JVTOJ^R 3 R<D% 1 ^$J?>^iB<7)f&l^ 

R 3 RfMflii**^ AND 
(g S F L 4 ^i«jb7 7 0 
OR ISFL 3 4-EI«tBS^I:7 9^*0 
OR eSFL 24-0^88^7 9^+0) 

R3R^4W:f-^^'' > f, So, g^ws F<S>L 4^Wt77^ 

o 

(15) h ;vaS"J75 ? S 4 1212 Hit^H 1 m&J^ftfBOlftfl 

• ilclB 
L 2fMHit+2£ 

• ^IB^i^i^ 

(16) b;vaglJ^S4-C±^I 2»4i*/lHlOL3#4*«/04©»4«* 

• ^IB 
NOP 

(17) ^ 9 \ S 4 t?^M* s A* 7^^^-«L3^4 
<75L 3 «4«#/ffi:&T L 3^4«/m7J^S^#^r-^L 3 # 4 «*/ 

L4i4 1 &*&O^SB<Z>tt9J 

04i4OttJ*^77^ = ^ 

• ^§cfi& ^) T§f l£fc 

0 4 j>Vottl*W79^^'f r -^* , ***^> J W5fe***-f «o 
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(18) ^ * b >vaS!ltf s S 4 -e±ffi**L 2 9 4 fj 

m*^31^#^-<^L 3 f£ eTiitUT-'- 



(19) h;v=ffigiJ^ s I 2<0|2S^ 

• |5llB 

• ^IB^TftP* 



(20) ^ * b ^SBU A S L 2 W| 2 fflfo <D O & 9! 



(21) ^ b nsHSAWL 3 <£>H 2 $,$><75^fB?)I 
NOP 



(22) ^ b JV^glJ^L 4 2 a*t<^^lB^>^^ 



(23) b;VffiSU7& s L 4 t^1£7& s ^Mffi<£>l£2£&&j0^ia<£>l 



(24) ^ b ;V«g(]j5*L 4 -CJRtt**^flBO» 2 «J?>^lBOl&l3§ 
^fc^liSl4B — L4^2 fttt 

(25) ^ b ;vaSIJ* s L 4 tK±I^2l^OSEM 
IB 
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ft: 



(27) ^ h >H|1B0**L 4 -eKiRflttiWHIi^* 2 ft#&o3£SB<*>8£95 
• gJtfB 

m^%^fraSttB — L 4 f£ 2 

H#O#0 %■ 5e«S.S!l El t*^ L T v> & 2o@ *Big*fc. 



(28) b/UfcM#L 4t?K±R©*&7GfcfcofcIEil£ROfc2 
• RIB 

K?)L 2H4 i Hi^L 4fg2<» 

K«L2©f4fi©f-^*, L4 0i2l»it^*^t*T4o 

(29) h;uaSli* s 0 4 «Oijl2m*-Jtf>^iB<7>OT 

(30) h JUSl^R 4 Ofg 2 «j0^fSO|£HJ 
g S F<OWO 2-1 D — R 4f 2« 

g^-cOS FCDWO 2^P? MDt, R 4 Of 2 H^H^jHT&P^SR^T'So 

(31) ^ b JVSB'J^R 2 C ?>fS 2 Mffi<D$c%Z<VUm 

#Jfe#*Vfl|» (Mft) , TtSFOW04-ID-R2Ci2| 

• ^fB<£>^i* „ fc , . _ 

b I D£, R 2 C <DW, 2 ° 

(32) b ;i/jffigU#*R 2 <£>fg 2 &£l?>^fB£>lft9! 

• <^ElB 

g SFOW0 3-1 D— R 2^2W 
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30/ 



acorn® 



(33) ^ b >MI8ll**R 3R<0^2 £y$<7>SciBOlftlE 
g S FOTO 4-1 D-*R 3 Rf£2iM 

a^WSFWWO A^l^y V I D£, R 3 R(7)^ 2 &*£«P*T<5> o 

(34) s<9 h IU5ffiSU** S 4 T-a£^ I2i2 2 ft<&0*BBORW 
I 2»2***^ U 7 

(35) ^ b A'ttSII** S 4 "C±m* s I 2||4 2 
I2|4|«^'J 7 

I 2S4^«rJStt^ y 7tSfttl*tSo 

(36) ^ h;VttSU* s S 4 T£»#L 2i4 »i2tlJ^ 

• SIB 
L 2 JMflW*** 'J 7 

(37) b;u«su/6 s s A^±mtfwm/x?iT?***-/xi]>$m 

• iiElti 
L3i4«B'J T 



#^r-/m*7 



(38) h frmSH&S 4 Tif^L 4 fM 2 m^J^^sB^I^^ 

?4tM£W*** y 7 

L 4^4 < Hit^Jl14^ y 7tif«:MtSo 

(39) b ;vaSU* $ S 4 T-3k§§7& s O 4i4 'pfi^O^ 2 SftftO*C©K9l 

0 4|4WtItt^ y 7-^a**5ftl*"t"*o 

(40) b;ViffiSIJ^I 2<0^3«J<^ia<^Ift93 

A2j 3 -r y Y<Dmft S T S <©E#fll5fe 
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i? : 31/ 



(41) b )vm.WL 2 ons 3 m.m<r>uu<of*M 

L 2 (7)i2lIi^^T-*-^^S*<7)#iJ^ : Sr^f*i-So 

(42) h fr^WL 3 £>f| 3 ffi*?jW^|BOBiW 

(43) ^ h ;vttSU7& s L 3 "CJRtt38i«^HiO* 3 5Rft«)*IB«>fiW 
Hit 

3 0fMfCitKl £S3tU B<0*#*«lset, Jffi£L;fc»#fcttL 3W*4f«i:2 «r 

(44) ^ h ;VittSU**L 3 -CKilgO^ 3 &*&0>gtlB0>BiW 
»&55«>*fT*fH ! i5fe, 1-L3^4lit 

^#^^^i- 0 ^HWfcfQSeU ^tfcMPttL 3 w^4 Wi: 1 t^If *t 

(45) ^ h ^a80**L 3 T*K£»-C*tt#*Mli«>* 3 *IB?>Ift9§ 

^X^HfT^^JJfeB, 2— L 3*4«* 
• ^^^B ^) 

{^Atiefe, 2og©IISfr^Bi^^o AO&ftfcJUjfeU MLfcf^^liL 
3 0f4f^:i^l, BO^**astt, iiL^Mt:liL3©i4«C2t 

(46) ^ h^sttgO*«L 3^A:&7****-£IS©IM3U&©*IB©SMP! 

tttfE# 2004-3099195 
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(47) h iHSlJ^L 3T-X*^SIfe#^-M^H3m^^^sB^i 



(48) ^ >;l/ffiglJ/5 5 L 3 T-m^T^-fe^^r-3El§^^3^#t<7)^5BOIi 
ffi^-^*^^*lJ^, l-L3fM 

mi^s^^fo^, i — l 3 m 4 1 



(50) «9 h >>V^SU^L 4 ?>fg 3 m^<^*lB^l^ 
L 4<^li§2«K^-*7&s&£^¥iJ^£#i5fc-r£o 

(51) > ^w&wo 4 3 TOoitiaora 

tb^jnw Kw^ff S T S OIEHT^Jte 



(52) ^ h JVSSO^R 4 <7)^ 3 ffijfa^m.tttWiM 

R 4 Ofg2^K^-*7& ? &&^¥0^£^i*1~<5> 

(53) WVttglJ^R 2 COf 3M^^^1B^^ 



R2Ci2 
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R 2 CW«f 2®*ft^7'-^* t ***0 J PJ5£**'*"*"*« 



(54) ^ h ^mWR 2 <75^ 3 fflfo<D&&<0®M 



(55) ^ b;v«giJtf s R 3 RofHsm&J^SIfi^li 



R 3 RS2Hit=^ 



R 3 R©i2WCf-^^^WJ^t*t^o 

(56) h ;l/^glJ# ? S 4 3 &$J<E>^iB£>lftlK 
NOP 

/ — ^- ^ U — v a ^tMcl'So 

(57) ^ MVMJ^I 2 0K5 4**&O^IBOtt^ 

(58) b JU5|lg"ja*L 2 (7)^4^^jO^|BW^ 

L2# 2 L 2 & 4 fflft, L 2 ^HmMlt? 9 1 fcini* 

" dfe pS ^) __ _ * . — 1.111*11 

(59) if h ;vjttSU* s L 3 <om 4M%s<D^.U<n$iffl 

(60) ^ h ;W"ffiSIJ^L 4 <7?fg 4 ^J^^fB^lftHJ"] 



(61) h;vjffiSU^L 4 t?K±RO* 4 J|ft©*"E©»W 

HiiEijf 2004-3099195 
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^s — V . 



34/ 



L 4 $2^3 
-* L 2*M«i* 

L 4 ©i2Wf 

^k7 7/c i fcingt, 



(62) h ^agll^L 4 t?JRtt*««ff 4 jftftO^SB^WB 

L4i 2 «->L 4 3§ 4 «, L 4 ^BHttMEft? 7 1 
-SFlL4i4 fttt 

ay 4 Hit ^3§1" * * £ 7§i<*-f & » 

(63) ^7 > /UjttSUrt'O 4 4 TOO^ffiOiftBji 




(64) b JVttSU^R 4 OfS 4 SiftO^SB^SiW 
R 4 HI 2 «*- R 4^4 Hit 

R4W|2Wf-^?:, ^4fti:iIt^f^« , *T6 0 



(65) ^7 h/MI»Irt*R 2 COf 4W 
R 2 C<7)H 2 Hit^T"— ^ £r, fM 



(66) ^ h ;WffiSIJ^ ? R 2 <D%, 4 Sft^^iaoWW 

• mis 

R2i2 fltf*-* R 2^4 Hit 

R 2 <£>f|§ 2 7*- * £, IMHitK#5iH~& 



(67) ^9 h^jffiSU^R 3 R0^4^^<^^|B^^ 
R 3 R*2HJ«— R 3 RIM Hit 

r 3 R«i 2 Hit^f— ^ *m a******** 
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(68) ^? YfrffiMIPS ±<D%i4%i@}<D 
NOP 



.SB OS 



(69) h ;W®SUt& ? I 2 on 5 ftft4>$1B«)B 

a5j 3 > Konfr s t s o^ntfl^ 



(70) ^ h ;v«El]7& s L 2 oH 5 i^^SSoSii 

mm^.mmty ?y=L2m* mvmmty ? 7 

(71) h ;V=ffiS!J^L 3 OH 5^0^ffiOlftHJ 

• ^IBO^R^ 

(72) ^ > /MtB0tf*L 4 OH 5 5&&0^iEOf&93 

• sieo^i* 



Sit 



l, rat 



(73) h /MlSiU^O 4 OH 5 $y$<£>*fBOlftf|§ 

ta^ n > Y<D-mf s t s osnt^jfe 

ffi * a v > K^««« k» e> *l & * - 9 * m#&i& *e & & & o m £ * 5McT a 



(74) ^ h ;i/aSU75 ? R 4 OlP 5 3l$jO^IBOf&I^ 

R 4 (^i2i«(:f-^^vWlfe*Iftt^o 

(75) ^9 > ;v®S0^R 2 CO|5SftCtl«P 



R 2 Cf2«#^ 
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(76) y jh&swr 2 5 m,m<o : m&<7>-3M 

R 2f|2igit=#£ 

(77) > >HI80a*R 3 R<D$g 5^0^ia<7?ra 

■ *IB 
R 3 R^2il^^^ 

(78) ^ h ;vmj^s 4 5 %Lm<Dmz<Dm,w 

NOP 

(79) b;vaSU* s S 4^<7)^6TO^^IBcom^ 

(80) ^ > ;VjffiSU^S 4 OfS 6^ <7) ^fB<7)lft9! 
NOP 

(81) b ;vaSU^S 4 Old 7 ^<7)^fBc7)|^^ 
NOP 

(82) 4&$\-<D<£X(Dm7%Lm(Dmz<Dnw 

• litis 

#® 7 9 ^ O N £ i£5£-r & ♦ & ^1*1" £ o 



(oi) fcmmm :&m&iEm.-em&&xtiv>'<9 
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l-'j: 37/ 



gOfffRli L y e eBELT±tiif&$^. 5e^MU El 1 O 7 n - ^ * - M4P 
[0 0 12] 

(0 147bM16) <B«j&#feSMfa:*<a*fc*&^*-**. $ 4 tRHHi^STC** g^O 

rt> L , t> ft t> fimm ffl * & ttflt O Sfc 14 & tL ib O »0 fc* ^ £ ^ * K * & 
ftx-Slc^Lv^M^i^St^-frS^ttlSfeSo CO&fcl DSOjg* (f&3£# : 16#H, 

[0 0 13] 

j]lifti:It»lt^o X*BSra#tt4, ^x-ifAiJ^^^ K-eX*$tL4DB 
[0 0 14] 
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[0 0 15] 

rco^fi r^O^* h;l/<afM tfcl^^K &m<DYmx&ho 
[0 0 16] 

[0 0 17] 

7 ^ 7 Il^i (±±f O t^*^ C E N W<^) ^ v^jr v>f 5: o ^WirfHt, 

(02) ^«msy2 : nm&JEm.-cm&tfxi}, wm^^y* 

9£L*fls*£#ttfcfHtt«' (LOOP) W5-e**. t^^Hfio^^ > *«>*i6 1 

t>tiZfrli, Ly e eBELTTffiite>tL*PB3l*#^*-r«a^**o LOOPW 
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(03) fcmm&z : ^tf^iEsiT-jitt^m*^^^ 

Ml/ 1 & & 0 £&&sy ti£&£SU HI 3 #JH 0 

YZti&o L 4t±g^L 3*>4r41Ktt£ i^W04^O^=grg^Of| 
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)pt ion Explicit ™* "~ ~* — — --— 

Rem *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ HffigB $$$$$$$$$$$$$$$$$$ 
Rem ma— -tffc : 

Rem mvXrAS : 

Rem ***S?«JBHi] : 1 

Rem ***Vector3E^— Jg@ ******** 

Rem ***«a## : 0010 

Rem ***a*»«K» : 0 

Rem mfTBflU : VB 

Rem ***i"g§^r->?3 > : 66 

Rem ***£g§®g»| : 01 

Rem ***^£ biimm : 12 

Rem ***^ttoDa^1i : 01 

Rem ***JHfr : 0 

Rem #£g§€ : 9X0 1 9 

Rem #±a§ID : 9X029 

Rem <PRD»M^_SF»9]^JfcS#IttM¥) : 9X289_9X29@_9Xl09 

Rem m^^hJKDXr~^X****m 

Rem #***T—*X«ffi : 9XSTS9 CO' : " ' : *§E) 
Rem BB##f3> : 9XT1ME9 

Rem *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ $$$$$$$$$$$$$$$$$$ 

Rem 3DEFPUB ** teWm®.^ 

Rem PUB4N2 K4*»5E*M* 

Private W9X309_9X3l9_9X289_9X299_9X029 As 9X239 
Rem PUBIN2 ffi2tt«jj_jMMft 

Private 9X3l9_9X289_9X299_9X029 As 9X239 

Rem PUB5C2 »5«»iE«fR« ttl«ft77^ (^H) 

Private CTRLJ'@X30@.@*28O«29@_STS_TRANSITI0NJLG As Integer 
Rem PUB5Y2 3fS5ffiffijiE&«tt ttlHEfl:7 9^ (fttH) 

Private CTRLjr9X30@_9X289_9X299_STS_TRANSITI0NJ ? LGJ > As Integer 
Rem PUB5B2 m»miEMm«L ttJMEft^i/ <M*EI) 

Private CTRL.W9X30OX28e_eX29@_STS_TRANSlTI0NJLG.PP As Integer 
Rem PUB6F2 SI6il**JiE««Ii« TBfctt?^ 

Private CTRL_ff§X30OX319_©X28OX29@_@X02O0T_VALID_FLG As Boolean 
Rem 3DEFEND 

Rem tDEFPRV ** &ft<lt£SC 

Rem PRV2T2 «2ttttJ|jM(* 

Private ff9X309_@X3l9_9X289_9X299_9X029_wk As 9X239 

Rem prv7R2 wzmmn&mm 

Private CTRL_W9X309_9X299JNG_FLG As Boolean 
Rem PUBKU 

Private CNS_N0TJ0JH_9X239 As 9X239 

Rem $PRV2W2 tt2tttt"C* h»ftfmt« mte 



Rem #DEFEND 

Rem *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ H^gs $$$$$$$$$$$$$$$$$$ 

Rem # £i§ID : 9X029 AOS (PRD_SF_i&S#) : 9X289__9X299_9X109 

Rem * 

Public Sub MainO 



9X1529 

Rem $PRV2E2 — 
Rem SPRV4T2 — 
9X1559 

Rem IPRY4E2 — 



{iifE# 2 0 0 4 



-3099195 



#IS 2 0 0 3 - 3 3 1 3 7 3 ^- v : 39/ 



[B4 0] 

♦ :/o y ^Ag-gs^oig^o^^Hi} i oft) 

Rem 8VECREP Private Sub L2_0X31Om6_eX29OX02§0 
BOX. I: 
Rem PRVLG 

If m308_iX318_e*28&JK29ej}35026 = CNSJiOT_KUlL&a5236 Then 

GoTo B0X_2 
End If 

GoTo B0X.E 
B0X.2: 
Rem PR\1G 

W306_§X31§^28§„§X29©_e*02e_wk = 8*31O*288_eS298_§X028 
BOX J: 
Rem PRVLG 

If tt§*308_e*3ie_6*28§_W29§_6X02§_wk O CNSJ<0T_KUH„eX23e Then 

GoTo B0X_4 
End H 

GoTo B0X.5 

B0X.4: 
Ren PRVLG 

ff&X3O&_§K3l0_&X28MX29§_©XO2§ = W8X306_eX318_8%28MX29OX028_ffk 
Ren PRVLG 

CTRL_m308.§«28§_§X298_STS_TRANSITI0N_FLG 
= CTRL.ffe»306_eX28MX298_STS^TRANSITI0N_PLG + 1 
GoTo B0X_E 

B0JL5: 
Rem PR\1G 

If CTRL3W30i_eX28&_6i29©-STS^TRANSITI0N_FLG_P = CTRLje*308_em«_8%29§JTS_JRANSmON_FLGJ>P Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

B0X_6: 
Rem PRVLG 

CTRL_ff©X3O©_eX318 - §5528§_§il529e - §3i02§_NOT_VALlD_FLG * True 
GoTo B0X_E 

B0X_7: 
Rem PRVLG 

CTRL_W8S308_eX298_ING_FLG = True 
GoTo B0X_E 
BOXJ: 
End Sub 
Ren *** PRCEND 
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Option Explicit 
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Rem tf€ : Ube 

Rem ***^Xt-A£ : 

Rem mffiaiJSfii] : 7 

Rem ***Vector£+— 3g@ ******** 

Rem : 0120 

Rem ***jfc8Sfa^lK# : 0 

Rem ***§3§£&SiJ : VB 

Rem ***arg§# 7 — >?a > : 66 

Rem ***^mmW\ : 01 

Rem ***^ MUffiBU : L4 

Rem **m&<W(&&l£ : 07 

Rem ***m$t : 0 

Rem ff£B£ : V— 

Rem #£g£ID : MAJIN 

Rem (PRD»9JTJF«W-T'Jfta*ll»8iJ : r) : PRDl_SF15_Asnd 

Rem ***^ V)\,<OT,*r—$ ********* 

Rem mXf-^Xfta : *G' CO' : ^7/ * : 

Rem B*l#|j> : 03/07/21 13:44:38 

Rem *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ M^Sfl $$$$$$$$$$$$$$$$$$ 

Rem #DEFPUB ** temmgiU 

Rem PUB4N4 mmmJEmW& 

Private W4_Asnd_PRDl_SF15JIAJIN As Integer 
Rem PUBIN4 mmtik&ffltl 

Private W2_Arec_PRDl_SF15JTEIKA As Integer 

Private W4_Asnd _PRD 1_SF 1 5_AMUNT As Integer 

Rem PUB5C4 *5ttttIE*MItt Wft77i/ (^H) 

Private CTRL_W4„PRDLSF15.STS_TRANSITI0N_FLG As Integer 
Rem PUB5Y4 *5flmiE*MMl ttSl^k^^^ (MB) 

Private CTRLJ4_PRD1_SF15_STS_TRANSITI0NJLG - P As Integer 
Rem PUB5B4 S65«#*JlEig<g« At'SmVcV^Cf <I»*IhI) 

Private CTRLJ4_PRDLSF15_STS.TRANSITION.FLGJP As Integer 
Rem PUB6F4 «6ffiffiiE&tB«t Tj£3*7^ 

Private CTRLJOsndJRDLSF15JftJINJN0T.VALIDJLG As Boolean 
Rem 3DEFEND 

Rem pub4B4 mmmst&m® 

Private W4JUndJ>RDLSFl 1JWUNT As Integer 

Rem pub4N3 nommmmmmm 

Private ff3JsndJ>RDLSF15JIAJIN As Integer 

Rem pub4N2 n^mAmmiEmmm 

9 Private ff2_AsndJ>RDl_SFI5JIAJIN As Integer 

Rem #DEFPRV ** RttSl«SB 

Rem prv2T4 mimm^mm 

Private W4JtendJRDLSF15JIAJIN_wk As Integer 
Rem PRV7R4 flffffittBiBA* 

Private CTRLJf 4 JSF 1 5_I NG_FLG As Boolean 
Rem *PUBKU 

Private CNSJWTJttIH_String As String 
Private CNSJ*0TJOJH_Integer As Integer 
Private CNSJWT_KUH_Boolean As Boolean 
Private CNSJlOTJOJILLong As Long 
Private CNSJWQUILS ingle As Single 
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[B4 2] 

±ISifi r-f--v?>j <om^om 

Private CNS_NOTJCUHJ)ouble As Double 
Private CNSJOTJUHJa riant As Variant 
Private CNSJOTJUHJurrency As Currency 
Private CNS_NOT_KUH_Byte As Byte 
Private CNSJNOTJUHJate As Date 

Rem SPRV2M %im$^5 h^WfP*«« M1& 

Rem SPRV2E4 mmm^i? HH**fWMtt* 1*7 

Rem $PRV4W4 IMMft'** HWrtfMMH* 

Rem SPRV4E4 K4ftttl'*0 h)lftttmm*& 

Rem #DEFEND 

Rem *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ &®$& $$$$$$$$$$$$$$$$$$ 
Rem # =£8§ID : MAJ1N FRB (PRDJSFJftaft) : PRDl_SF15_Asnd 
Public Sub Main 0 

Rem SVECREP Private Sub L4_AsndJRDl JF15JAJINJ 0 
B0X_1 : 

If W4_Asnd_PRDl_SF15_MAJIN = CNSJOTJUHJnteger And _ 

W3_AsndJRDLSF15JIAJIN = 1 Then GoTo BOXJ 
End If 

GoTo BOX J 

B0X_2 : 
Rem PUB IN 

If W2JVrec_PRDl_SF15_TEIKA = CNSJOTJUHJnteger Then GoTo BOXJ 
If W4_AsndJRDlJF15_AMUNT = CNSJOTJUHJnteger Then GoTo BOXJ 
W4_AsndJRD 1 JF 1 5_MA J I N_wk 
= Val (W2_Arec_PRDl_SF15_TEIKA * HJsndJRDl JF15 JNUNT) 

B0X_3: 

If W4_AsndJRDlJF15JIAJIN_wk O CNSJOTJUHJnteger Then GoTo BOXJ 
End If 

GoTo BOXJ 

BOXJ : 

W4_Asnd_PRDLSF15_MAJIN = MJsndJRDl JF15_MAJIN_wk 
W4_Asnd_PRD 1JF 1 1.AM0NT = W4_Asnd J>RD 1_SF 1 5_MAJ I N 
CTRL J"4 JRD 1 JF 1 5_STS JRANS I T I ON JLG 
= CTRL J4JRD1JF15JTSJRANSITI0N JLG + 1 
GoTo BOXJ 

B0X_5: 

I f CTRLJ4JRDI JF15 JTSJRANSITIONJLGJ 
= CTRLJORDLSF15.STS_TRANS1TION_FLG.PP Then 

GoTo BOXJ 
End If 

GoTo BOXJ 

BOXJ: 

CTRL J4Jsnd JRD 1 JF 1 5 J1A J I N_NOT_VAL I D JLG = True 
GoTo BOXJ 

BOXJ: 

CTRLJ4JF15_INGJLG = True 
GoTo BOXJ 

BOXJ: 

End Sub 

Rem *** PRCEND 
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• [043] 

*W0 2^i/7hTO^ (1X3) 

Option Explicit 

Rem ***** ^atJgS *************************************************** 
Rem ***ol— +f£ : 

Rem myXfAS : 

Rem ***/^U-/ ******** 

Rem ***®a**§ : 

Rem ***Stg®SU : YB 

Rem ***-g§§^T — va > : 66 

Rem ***/1Uy hagij : W02 

Rem UtrtUy h^giJ^F : W@%30O*2 80*290*020 
Rem #**®iaiXir--*Xtg$B @fcSTS@ (* 0" : ^T, ' ' : 
Rem #**£ric*PJI BP$#0> : @XTIME8 

Rem ***** ig^gS *************************************************** 

Rem #DEFPUB ** nVv hffi^SSi^ &8&-@X28O*29O*02@ 

Rem * %r&rtl>y hm^M®. 

Private CTR_NEXT_PALLET_lD_NEff As String 
Rem PUB4N2 W02 mm'tiM®. (A*8feStt0)jiB3l) 

Rem **** W02 ikmmtm*&o>mM**** 

Rem pub5C2 msmm ^mtkm&itmmomm 

Rem PUB5Y2 m$m® ffimVtm&{tm®<DMM 

Rem pub5B2 m^mm tti^m^mmtm^mm 

Rem PUB6F2 msmttm®, ^&xL7y7(Dl&gk 

Rein ! i^^m^itmmomm 

Rem #DEFEND ** 9\Vy hiS3§M&jiHj£ ftO 

Rem pubin2 wo2 mimmte* mm, 

Rem * fy-i yrv97» 

Publ ic Gyou as Integer 
Rem * 5iH>fy^X 

Public Retu as Integer 
Rem * \HM<»t}^>? 

Public UtLCnt as Integer 
Rem * WM<DtJO>? 

Public Soto_Cnt as Integer 
Rem * rtW<7>S^:{S 

Public UtiJIax as Integer 
Rem *— ftWOfe-km 

Public SotoJIax as Integer 
Rem #DEFFIN 

Rem SDEFPRY ** W02/^Uy KH83&<gt£ mt& @S28O*29OX02@ 

Rem prv2T2 mimm&mmcomm 

Rem prv7R2 'mmmm&y ^^mm^mm 

Rem ***** s<2 h JlfaV — 2 mm<DM$k ***** 

Rem pr\'2W2 mzmm nm^mm® 

Rem prv4W2 fg4*ii£K nm^mmm 

Rem smomt&mM iv7)v—?->m&:) 
Rem smm® 

Rem 

Rem * PUBKU 2EtfMI 

Private CNSJ*OT_KUH_String As String 

Private CNSJWTJCUHJnteger As Integer 

Private CNS_NOTJCUH_Boolean As Boolean 

Private CNS_NOTJCUH_Long As Long 

Private CNS,NQT_KUH_S ingle As Single 
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*W0 2/tl/7hKSOi (2/3) 



Private CNSjNOTJOJHJtouble As Double 
Private CNS.NOUUHJ'ariant As Variant 
Private CNS_NOT_KUILCurrency As Currency 
Private CNSJIOTJKUHJyte As Byte 
Private CNSJJOT_KUHJ)ate As Date 
iRem #DEFEND ** W02/tU-v hm&m®. &0~ 



************ ********************* 

* W02 Al^y h^Sc (<P2) * 
********************************* 
IRem PaLID 

Public Sub @XPAL!D@() 
|MAIN_START: 

< ttttFJMJT > ' 

IRem PRVLG 

CTRLJ*«30§_iX28§_«X29§_STS_TRANSITION_FLG = 0 

IRem PRVLG 

CTRLJ'«X30MX28§„e%29«^STS.TRANSITI0NJLGJP = 0 

■ 

CTRLJ«X30i_§SI528MX29«JSTSJRANSIT10NJ 7 LGJP = 0 

CTRL_ff§«308 - @»288.§3529§„I2_STS_TRANSITION_FLG = 0 

< L2»2««<&*»J7 > ' 

IRem PAL2T2 

< L2fg6Sltt(Z>*U7 > ' 

IRem PAL6F2 

— < umm®v>f)7 > — 1 

IRem PAL7F2 

Rem *VecID < A*fWBH*I2 OElft^ > ' 

Rem CALLVA 



Rem PRVLG 



Rem PRVLG 



• < MBftt&aKQJkjjjK > ' 

|BOX_@*PALID@_RERUN JOINT : 

' < ttttKft:F0)4l9 > ' 

IRem PRVLG 

CTRL JW%30t_i%28M%29t_STS JRANS I T I ON JPLG JPP _ 

IRem PRVLG 

= CTRL_W@% 3 mj% 2 8§_©%2 9@_STSJTRANS I T I ON_FLG_P 

IRem PRVLG 

CTRLJ§X30§_§X28©_§X29«JTSJRANSIT10NJLGUP _ 

IRem PRVLG 

= CT8LJW30§JX28O»29« - STSJRANSITI0NJLG 

IRem *VecID < ttafift L2 <D&m$s<fr > ' 

kern CALLVL 

' — < nmmfc mrnom*®) > — • 

IRem PRVLG 



If CTRLJWX30MX28§^«X29I_STS_TRANS1TI0NJ ? LG_P O _ 



Rem PRVLG 



CTRL J m 30@_@*2 8MX2 98.STS JRAHS 1 T I ON_FLG_PP Then 
GoTo BOX_@*PALID@ JERUNJOINT End If 



-< S?SftsfflgiSIR2C<BEBi&< 



Rem *VecID - 
Rem CALLVR 

Rem *VecID < &&ftm&mn <Dffi@fft^ > ' 
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[1214 5] 

*W0 2nU y hM$k<om (3/3) 

Rem CALLVR 
MA I N_END : 
End Sub 

' < WtrtUy hm&mT > ' 

Rem * mmmmm {Set of Vector) unmmmmmmmmmnnm 

Rem VECPRC ****** 12, L2, R2C, R2<D62© 
Rem PRCEND 

Rem * »####### mmmirt V y h43*>0 #####«############»*######«#«#### 
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♦wo hnagc<7)M d/2) 

Option Explicit 

Rem ***** EUifl? **********m***M***M*********Mt*************M* 

Rem ***zl— tffi : 

Ren ***v*-r-Afc : 

Ren tt*nv-j hH9Sc ******** 

Ren ***©S*&^ : 

Rem ***a«Se6SJ] : YB 

Rem wS&Vt—: ?3 > : 66 

Rem ***/1U^ hfli&J : KQ3 

Rem 9**/1W? hSfifcJSW : ffeX30§_@*28§_§X29S._exO2G 
Ren waaxt- *Xfc?$a: &5KSTS6 CO* : 5tT. ' ' : 
Rem ***£EWB BB*fc*fr : eXTlUEG 

Rem ***** ftH$35 Mm********************************************** 

Ren SDEFPUB ** i\V~j h2B$flf$a®& f«3$6-©S28©_6'«29©_©%02§ 

Rem * Jfafc^U v Mfim«« 

Private CTfLNEXT_PALLET_I DJIEff As Siring 

Rem PUB4N3 ff03 m&mm® D24 

Rem » m ff03 ttf&£{r:&&(Z)l8£**** 

Rem PUB5C3 ftS5&fcjm*a ^DttttftflS««CDAft 

Rem PUB5Y3 &5«£ttUft Nr§lttf83fefbftl«0!>IBm 

Rem PUB5B3 ffiSJBtifiUft ltt*lIJfc&&fr:fc#ea$g& 

Rem PUB6F3 Mtt&tiL? ? ?(Dm& 

Rem 9DEFEND ♦* /tWy ttU 

Rem PUB1N3 W03 m2MMMA ®& 

R eD | fr-f >t*v£;* 

Public Gyou as Integer 
Rem * >7 £ y<7 7s 

Public Retu as Integer 
Rem * fa®i<Dii??>9 

Public UtLCnt as integer 
Rem * ftm<ni3t?><9 

Public Soto_Cnt as Integer 
Rem * 

Public UtlJIax as Integer 
Rem * *V {HA 

Public SotoJIax as Integer 

Rem JDEFPRY *♦ Y03/*W-? hmttRtt M$& §%28©_©X29&_9X02§ 

Rem PRV2T3 &fiB**£>8S£ 

Rem PRV7R3 «7«IDf9fi7?2f««Oilft 

Rem ***** ^^h;^7-^ffi««)SaM*M 

Rem PRY2V3 mUM&C NMfMMUft 

Rem PRY4W3 fM&tiK ftMfNMJft 

Rem SUBtf>fclA£t8& >UHfc) 

Rem 

Rem 

Rem * PUBKU £<Dffi 

Private CNSJOTJO!H_String As Siring 
Private CNSJJOTJCUlUnteger As Integer 
Private CNSJTOTJCUlLBoolean As Boolean 
Private CNSJOTJOflUong As Long 
Private CNSJIOTJOHLS ingle As Single 
Private CNSJJOTJOIOouble As Double 
Private CNSJQQUH,Variant As Variant 
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[H4 7] 

♦ W0 3/ti/yhWatOg (2/2) 

Private CNS_NOTJttJILCurrency As Currency 
Private CNS_NOTJvUHJyle As Byte 
Private CNS_NOT_KUHJ)ate As Date 

Rem SDEFEND ** W03/tU* hMRMMt ft 9 

********************************* 

* WO 3 nVv HMfc (4>3) * 
********************************* 

Rem PaLID 

Public Sub @%PALID@0 
MAIfLSTART: 

' <tttMMfcPiMJ7> ' 

Rem PRVLG 

CTRLJ"§X30§JX28§.iX29§JTS_.TRANSITI0NJ'LG = 0 

Rem PRVLG 

CTRLJW308JX28MX29«JTS_TRANSITI0NJ ? LGJ = 0 

Rem PRVLG 

CTRLJW30i_«28§_«X29«JTSJRANSITI0NJFLGJP = 0 

' < L3«2««tO»U7 > ' 

Rem PAL2T3 

' < L3*H«M0>£HJ7 > ' 

Rem PAL6F3 

' < L3SI76B«©*U7 > ' 

Rem PAL7F3 

' < mm&*><omQM& > — ' 

B0O*PAL I DOERUN JP0I NT : 

' < ftmmtfot&m > — ' 

Rem PRVLG 

CTRLJ"«X30MX28§_«X29«_STSJRANSITIONJFLGJ > P _ 

Rem PRVLG 

= CTRLJ@%30OX28i_i3S29@ - STS.TRANSlT10N_FLGJP 

ilia 

Rem PRVLG 

CTRL JM3MJMK2 8§_©%29§_STS_TRANS I T I ON JLG_P _ 

Rem PRVLG 

= CTRL_ff^30O5K28@_@SK29@_STS_TRANSITI0NJLG 

' < L3<£&Mffr<£ > ' 

Rem CALLVL 

' < WS«« (MHOWMrH) > ' 

Rem PRVLG 

If CTRLJiX30§_iX28§JX29§JTSJRANSITI0NJFLGLP O _ 

Rem PRVLG 

CTRL.W§SI530O*28OSK29§_STS.TRANSlTI0NJ ? LG_PP Then 
GoTo BOX_@KPALID@JERUNJ>GINT End If 

Rem *VecID < £ftfttBSi!iR3ReBft<fr > ' 

Rem CALLVR 

MAINJEND: 

End Sub 

■ < i/7h m&mj > • 

Rem * ########»###### {Set of Vector) ##################################### 
Rem VECPRC ****** L3. R3R<£@2© 
Rem PRCEND 

Rem * »*######*#####W03/1U^ h l$t> D #g W»##»###«g####9>»#8#a#»»##g##aa## 
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[B4 8] 

*W0 hWBcCDffl (1/3) 



Option Explicit 

Rem ***** affigfl *******m****************M*********************** 
Rem ***rL— if S : 

Rem myXfAS : 

Rem t-KSc ******** 

Rem ***WS3H§ : 

Rem ***Ir85«9J : VB 

Rem mfi^T-va > : 66 

Rem mA'l/7 h^S'J : U04 

Rem #**A'Wy hSSgiJ^ : W@*30O%28@_@%29@_@*02@ 
Rem #**BitX'r-*X«tt : @SSTS@ CO' : ftT. " ' : 
Rem B&$#|}> : @*TIME@ 

Rem ***** fil^SE *m************************************************ 

Rem #DEFPUB ** rtisy higtRNRfiMt BBi6-®X28OX29O*02§ 

Rem * WMtnVy h*g?S1fi« 

Private CTRJJEXTJ>ALLETJOEW As String 

Rem PUB4N4 W4 flMttttfi* (ffl*ffeg#<DJB«l) 

Rem PUBIN4 W04 «2»»ttjA M* 

Rem pub4B4 wo4 mmm^mm 

Rem **** wo4 vtmmtn&cDmm**** 

Rem PUB5C4 flI5&«Jtttt ^lattfiBXftttttailft 

Rem PUB5Y4 «5ttttflMt MBttSCflsMttoaUK 

Rem PUB5B4 «5«»«* N^BttlMftfllttOMft 

Rem PUB6F4 fg6*S&ffl« Tffoi? 

ReD , O4^®tttt*fl:«tt<0lB* 

Rem 3DEFEND ** /tU^ Hil§S(i§?&fiI*£ £D 



Rem PUB4N3 W04 an&ttflMt(V03 ffMftfflW*) 

' *****M**ffi^]»tfsjB >7 — £r<Wtt********** 

Rem * )f<>T7^7 

Public Gyou as Integer 

Rem * ^>T'^X 

Public Retu as Integer 

R em * rt«co^^>^ 

Public DtLCnt as Integer 

Rem * ftm<Ol3^>& 

Public Soto_Cnt as Integer 

Rem * foM<Dm±m 

Public UtiJIax as Integer 

Rem * ftm<nm±m 

Public SotoJIax as Integer 
Rem #DEFFIN 

• *************************************** 

Rem 3DEFPRV ** W04/1W-/ hH&fttt mt& tX281.«29«.tX02«- 

Rem PRV2T4 ff2&»ttAatt®mil 

Rem PRV7R4 ft7ftttf|jB7?^«M®flJK 

Rem ***** ^ h^A>7— ^<S*£<E>li&***** 

Rem PRV2W4 *2MtiKmrt{MMM 

Rem PRV4W4 «4tt«rV»MMfMBfH« 

Rem SUBGffittUft (i^U— ?>>4Mft) 
Rem 3I8EM« 
Rem SJ&8U£ 

Rem * PUBKU ^Oi 

Private CNSJiOTJOKLString As String 



ffiiE^2 004-3099195 



#M 2003-331373 



^-v: 48/ 



[B9 4 9] 

*W0 bKfknM (2/2) 

Private CNSJJOTJUJlUnteger As Integer 
Private CNSJWTJiUOoolean As Boolean 
Private CNSJWTJMUong As Long 
Private CNSJWTJttJILS ingle As Single 
Private CNS_NOTJOJHJ)ouble As Double 
Private CNS_NOT_KUH_Va riant As Variant 
Private CNSJJOTJOIlLCurrency As Currency 
Private CNS_NOTJCUH_Byte As Byte 
Private CNS_NOTJCUH_Date As Date 

Rem SDEFEND ** W04/^ V v #£9 

Rem * snmmmmmnmmmmmmmmmmmmmmtmm 

********************************* 

* W04 bm& (4>4) * 

********************************* 

Rem PaLID 

Public Sub @SPALID§0 
MAI N.ST ART: 

* < ttflaMKF*U7 > ' 

Rem PRVLG 

CTRL3@X30@_@^28O^298_STS_TRANSITI0N_FLG = 0 

Rem PRVLG 

CTRLJ*@5K30O*28®_8^29^STS_TRANSITI0NJLGJ = 0 

Rem PRVLG 

CTRL_W^30O«28OX29@_STSJRANSITI0NJLG_PP = 0 

Rem PRVLG 

CTRL_W@%30O*28O^29@_04_STS_TRANSITI0N_FLG = 0 

' < L4»2«MM>$MJ7 > ' 

Rem PAL2T4 

• < mmm®L<Dw? > — • 

Rem PAL4M4 

' < L4m6$Ua<E>^ V 7 > * 

Rem PAL6F4 

' < L4*7«MM)£MJ7 > ' 

Rem PAL7F4 

' — < «e*>fc0>R0J6£ > ' 

BOXJftPAL 1 D§ JERUN JPO INT: 

' < tt!i2MfcF©4&g > ' 

St! ©-Aft* Is] 

Rem PRVLG 

CTRLJ§X30e_W28§JX29iJSTS_TRANSITlONJ 7 LGJPP _ 
Rem PRVLG ■ 

= Cmj«*30e_W28i_W298JTS_TRANSlTIONJFLG_P 
+n-»ttn 

Rem PRVLG 

CTRLWW30§JX28§_«X29§.STS_TRANSITIONJ ? LGJ > _ 

Rem PRVLG 

= CTRL_fft%308JJX2 8@ _§*29®_STS JTRAN S I T I GN_FLG 

' < K>? b)v<omm^ > ' 

' < L4<DBB«fi^ > ' 

Rem CALLVL 

' < WB«* (WiaOtt^Bl) > ' 

Rem PRVLG 

I f CTRL je*30O*28@,§*29@_.STS JRANSITION_FLG,P O _ 
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[IE 5 0] 

♦ W0 4/tUyH8»g)g (3/3) 

Rem PRVLG 

CTRLJ'@3530OS5286_®X29«.STSJRANSlTI0N_FLG_PP Then 
GoTo B0X_§XPMIDOERUNJ>0INT 

End If 

Rem *VecID < M*f1pfflK*04 ffRITEMffifflS) EB** > ' 

Rem CALLYA 

Rem *YecID < SKft*fflK#R4BB&* > ' 

Rem CALLVR 

Rem *VecID < HWf^ffl!l*S4EH*^ > ' 

Rem CALLVS 

MA1N.END: 
End Sub 

' < W04/1 l/yh HftttT > ' 

Rem * wnmnmm (Set of Vector} nnmmmnnmnummnmn 

Rem VECPRC ****** L4. 04, R4, S4coE® 
Rem PRCEND 

Rem * ###############W04/1 V y h43t>0 #####««###############*########«## 
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i i i t , i > i i i i i i 



Option Explicit 

Rem mmmmmmmmmmmnmsmmmmmmmmmt 

Rem tffi : 

Rem myXfAS : 

Rem hfflSBBBft ******** (p R D 1 m\CDt 1 #j£*S-r*) 

Rem ***@*l#*t : 
Rem ***^sg^SU : VB 
Rem ***^2t r yy— V3 > : 66 

Rem #**/tU-7 WffiMH&ttBiJ? : §*PRDID«_«XPRDNAME« 
Rem m«jfiXT--*Xte«B: @%STS@ CO" :5S7.' ' : **) 
Rem 9**£j«*M BfKJfrg> : @*TIME@ 

Rem *9###9###99#99999#939#9#999#9##993S#99993#9993#39#9###9#9#99#99999 
|Rem ********* nUy h»HB8Sc®*£ ********* 

ftKWffiHH«l7'-^ntt«lft 

|Type RouteControITableType 
No As Integer 
SFID As String 
Row As Integer 
Col As Integer 
PallD As String 
SubNo As Integer 
RouteCode As String 
NextPal lets As Variant 
NPID_R3R As String 
NPID_R3M As String 
NPIDJHD As String 
NPID.R3C As String 
SendedRoutelD As String 

SendedR3CJ03ID(10) As String ' fPfflR3CtSSi^ftK^ffiie@ (W3/1U v MM 
SendedR3C_W04ID(10) As String ' fPJBR3C««^<&«K««WB9» (W04/^Uy MM 
|End Type 

Public RCT (10000) As RouteControITableType 



'PHHMTBLO^n^jrlD 
' PRDtg&TBLORow 
'PRDti?$8TBL<Z>Col 
' PRD**TBL0>WO3<Z>^ V y h ID 
' SFID, AWy MDrtTOiSW 
'R3C. R3D, R3IMH >0**l7l>> 
'PRD««TBL<0«KaWS©^Wty MD* 

' ftKa9JR3R0)lt£, PRDit$aOR3R<D/^ V v MD*K3t 
'H8Ba9JR3M<0»ft. PRD««<7>R3M<B^Uy MD&BttE 
' JS»aMR3D0>«£, PRDl«SS<£R3DCDA*Uy MD4KJE 
' «»a9JR3CO»-&, PRDtt«W>R3C<0/tUy MD*ftft 



Private InputRCT As String 
Private ForSplit 0 As Siring 
Private ForSplil2 0 As String 
Private Rctlndex As Integer 
Private Rctlndexl As Integer 
Private Rctlndex2 As Integer 
Private Rctlndex3 As Integer 
Private Rctlndex4 As Integer 
Private RctlndexS As Integer 
Private Rctlndex6 As Integer 
Private Rctlndex7 As Integer 
Private Rctlndex8 As Integer 
Private Rctlndex9 As Integer 
Private RctlndexlO As Integer 
Private Rctlndexl I As Integer 
Private Rctlndexl2 As Integer 
Private Rctlndexl3 As Integer 
Private RctlndexU As Integer 
Private RctlndexlS As Integer 
Private Rcllndexl6 As Integer 
Private Rctlndexl7 As Integer 
Private Rctlndexl8 As Integer 
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Private Rctlndexl9 As Integer 
Private Rctlndex20 As Integer 
Private PalletlDJJow As String 

n»tt«M»^--7;uwa«* $57 

(Rem * ff-f >xy 9 X 

Public Gyou as Integer 
iRem * 



Public Retu as Integer 
IRem * 



Public UtLCnl as Integer 



Rem * 



Public Soto_Cnt as Integer 

IRem * fa®l<D$k±m 

Public UtiJIax as Integer 

IRem * fMM<Dtik±1&. 

Public SotoJIax as Integer 

IRem * Sf*^ V y hff;5MS« 

Public CTR _NEXT_PALLET.J D_NEfl As String 

IRem * IB&rtUy hiS^WA 

Public CTR_NEXT_PALLET_I D__OLD As String 
IRem *4ffl«OSm 
Rem &6mt$L<DMt& 
Rem ^mmomM 

Rem ^^kmmwL(Dmn 
Rem nsivrntmomm 
Rem tft*mwimm®>(DMm 

Rem ^I§I12ttiB««OlBM 

Rem ^mQ4&nm%L<Dmm 

Rem #PRDDEF_PUB *** PRD^Wm^gC — PrdID = @%01@ PrdName = @%02@ 
Rem *PRDDEF_PRV *** PRD*fflffi«gg 

Rem SDEFPUB ** SF9J&ft)fittSB SflD = iXU§ SfName = @5U2@ 

Rem DEFPUB ** SFStJ&#J®«tgB 
Rem DEFEND 

Rem /tU'y hil»H|Rrt»7-i;««©IB* 

Rem /tl/y ha^rajSSUBom«ffl« ?>1MK) 

Rem SliSAtt 

Rem 

hem * fSMMHT— ^ (PRDlil:-Pt l^SitS) 



IRem *PUBKU ^co*t 
Private CNS_NOTJttJH_String As String 
Private CNSJK)TJ(UH_Integer As Integer 
Private CNSJWTJCUHJooIean As Boolean 
Private CNSJWT__KUH_Long As Long 
Private CNS_NOT_KUILS ingle As Single 
Private CNSJiOTJOJHLPouble As Double 
Private CNSJWOUHJ'a riant As Variant 
Private CNS_N0TJOJH_Currency As Currency 
Private CNS.NOTJOJILByte As Byte 
Private CNSJfOTJttJHJate As Date 

********************************* 

* rtuvhmmM& * 
********************************* 
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Rem #@%02® 

Rem * 

ublic Sub @FormID©_ForiD_Load 0 
Call Tenselnit 

CTR_NEXT _PALLET_ I D JJEW = ' ©Event Prod I)@2' 
Call TO 
End Sub 

Rem * 



Public Sub @FormIDOEventProclD@(@Para@) 
W2_@^S{*:lDOPrdId_0SnDOPara§ = @Para@ 
CTR_NEXT_PALLET.J D_NEff = '6EventProcID@2* 
Call TO 
End Sub 

Rem *-********* <j>0 rtUy SffiM^S ******************************************* 

Public Sub TOO 

On Error GoTo OnErrorBox 

BOX_RETURN_A: * KDftM&A 

Rem PUB404 

'* — <->xta ktws > — ' 

Rem PUB6I2 
Rem PUB604 

Rem * 

If CTR_NEXTJ>ALLETJD__NEW = " Then 

Call SelectNextPal let 
Else 

CTRJ«EXTJ>ALLETJDJ)LD = CTRJ*EXTJ>ALLET_IDJO ' IB*/1 V y h»^«««-Sr;fc/t V v 
CTR_NEXT_PALLET_ID JEW = " • /t U >v * U T 

End If 

Rem * bmmmm m^uy b^mmz^to) 

Call RunPallets 

Rem * mQi&&klzmz> 

Go To BOX_RETURN_A 

Rem * mj&m 

BOXJND: 

END 
OnErrorBox: 

END 
End Sub 

Rem *** PRCEND 

Sub Tenselnit 0 

' < WIM^^ffj* > ' 



Call MakeRuteControl Table 



Rem * rtuybmma»tftwmi,xi**im*:{?*)7 

CNS_N0T_KUH_S t r i ng = ChrW (0) 1 As S t r i ng 

CNS_N0TJOJHJnteger = -32768 'As Integer 

CNSJlOTJOJILBoolean = False 'As Boolean 

CNS_NOTJOJHJ,ong = -2147483648# 'As Long 

CNSJIOT.KIJILS ingle = -3. 402823E+38 'As Single 

CNS_NOTJOJHJ)ouble = -4 9406564584 1247E-324 'As Double 

CNSJJOTja«ILVariant = -4 9406564584 1247E-324 'As Variant 

CNSJWTJKUILCurrency = -922337203685477# 'As Currency 
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CNSJWT_KUH_Byte = 255 'As Byte 

CNSJWTJUJHJ)ate = 999999 'As Date 

Rem * %J)%ti&$hrtVy MD£-fe'y h 

' Call SetFirstPal letld 
End Sub 

Sub SelectNextPalletO 

Rctlndexi = 0 ' £R3RO<i©fli£#1' 

Rctlndex2 = 0 ' SR3C, R3D, R3M<D?rft^x y 1 >* 

Rcllndex3 = 0 ' SSFtf)J$JgC=$fcsi & iSFflE>ffijft^R3C=5e«K*t&5e"rS3R-f > 4 

Rctlndex4 = 0 ' £R3CoD?g$fii$gc£;*j^> h 

Rctlndex5 = 0 ' 6PW>0>£TC!>5B«f2«a0>£r >J7fflftO>* 

Rctlndex6 = 0 ' iR3Dfg^#< 

Rcllndex7 = 0 1 SR3C»«#-f >^ 

Rctlndex8 = 0 * 6R3Mt§3K#< 

Rctlndex9 = 0 ' &WtZftm^&£T<DnZ*tfim-fZ>'#1 

RctlndexlO = 0 ' SR3M«^#-f 

Ret Indexll = 0 ' SR3C}g^-f 

Rctlndexl2 = 0 '§R3Cm^#<>^ 

Rctlndexl3 = 0 'SR3Cm^*<>^ 

RctlndexW = 0 ' gSFO£R3Cfg$B&CHra#0>* 

Rctlndexlb = 0 ' *IISW]»«*-r—^©eR3D&aR3Mf8«E»0^ U 7 

Rcllndexl6 = 0 ' *««©£R3C€:5B«ffl# Y 

RctlndexH = 0 ' ffiR3CC0Pa — F£»ia*TS#-f 

Rctlndexl8 = 0 'Rctlndexl8: gR3McOl^ 3- KO, i¥mntffin&Vs7X-?2>rt 1 
Rctlndexl9 = 0 'mLKcDUzi— H£tt3jVf£tfW 
Rctlndex20 = 0 



<%tfZ%ft*¥<Dn\s y hID£®#> 



Pallet ID Jow = CTRJJEXTJ>ALLET_IDJ)LD 



<£3R3R*fg$g?> 



Do Until RCT (Rctlndexi). No < I 

If Mid (RCT (Rctlndexi). Pal ID. I Len (RCT (Rctlndexi) . Pal ID) - I) 
= Mid(PalletID_Now. I, Len (PalletID_Now) - I) _ 
And RCT (Rctlndexi). RouteCode = "R3R" Then 

' C<nm* SR3R^0 ' 

If RCT (Rctlndexi). SendedRoutelD O "I* Then 

' ZCDtff. gR3R*§gSrefc£ ' 

' (D§g*B TR3RJ <J>P-ID£#C>P-ID {gixU7l:t7l 

CTR_NEXTJ>ALLET_lDJ)LD = RCT (Rctlndexi). NPID_R3R 

CTR.NEXT J> ALLET_I D _NEW = " 

' ®&&mmnL<n&nmmmmom® ' 

RCT (Rctlndexi) ..SendedRoutelD = ' l* 

' ^KSiRffla^T 

Rctlndexi = 0 
Rctlndex2 = 0 
Rctlndex3 = 0 
Rctlndex4 = 0 
Rctlndex5 = 0 
Rctlndex6 = 0 
Rctlndex7 = 0 
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Rcllndex8 = 0 " 
Rctlndex9 = 0 
RclIndexlO = 0 
Rcllndexll = 0 
Rctlndexl2 = 0 
Rcllndexl3 = 0 
RctIndexI4 = 0 
RctlndexlS = 0 
Rcllndexi6 = 0 
Rctlndexl7 = 0 
Rctlndexl8 = 0 
Rcllndexl9 = 0 
Rctlndex20 = 0 
Exit Sub 
Else 

' zcom, &nmm$T~&z> ' 

GoTo BOXJOJTRANSITIONJM 
End If 
End If 

Rctlndex) = Rctlndexl + 1 
Loop 

BOXJ0JTCANSIT10N_CHK: 
Rem PRVLG 

' [f PallelllLNow = @K100@ And (CTRLjm30O»28@_@%29@„I2_STS_TRANSITI0N_FLG O 0 Or 
CTRLW@X30O«28O*29O4_STS.TRANSITI0NJLG O 0) then GoTo B0X_IO_TRANSITIONJ)N 

GoTo BOXJ0_TRANSITI0NJ)FF '«&^bfcLft«^ BOX 1 0 JTRANS I T 1 0N_0FF 'vil ts 

BOX_I0_TRANSITION_0N: 

' ®5£#B TR3RJ <I>P-ID£*<J>P-ID fl^xU 7lZ-ty h ' 

CTR_NEXT _P ALLET_ I D _0LD = RCT (Rctlndexl) . NPID.R3R 
CTR_NEXT_P ALLET_I D JIEW = " 

' -~©m^umni(om^mm^(Dwm ■ 

RCT (Rctlndexl). SendedRoute ID = T 

' m&mtR%immT 



Rci 


Jndexl = 


0 


Rcl 


:lndex2 = 


0 


Rci 


tlndex3 = 


0 


Rcl 


tlndex4 = 


0 


Rcl 


:lndex5 = 


0 


Rcl 


Jndex6 = 


0 


Rcl 


tlndex7 = 


0 


Rcl 


:Index8 = 


0 


Rci 


ilndex9 = 


0 


Rcl 


ilndexlO 


= 0 


Rcl 


tlndexll 


= 0 


Rcl 


.lndexl2 


= 0 


Ret 


:IndexI3 


= 0 


Rcl 


tlndexH 


= 0 


Rcl 


:Indexl5 


= 0 


Ret 


:IndexI6 


= 0 


Rcl 


Indexl7 


= 0 


Rci 


Indexl8 


= 0 


Rcl 


Indexl9 


= 0 
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Rctlndex20 = 0 ~~~ 
Exit Sub 

BOXJ0_TRANSITI0NJ)FF: 

'SSFKR3C, R3D. RM<D{,**Ftlfrtf ft 
Do Until RCT(RctIndex2).No < 1 

If Mid(RCT(RctIndex2).PallD. 1, Len (RCT (Ret Index2) . Pal ID) - I) _ 

= Mid(Pa!letID_Now, I, Len (Pallet ID^Now) - 1) 

And (RCT(RctIndex2).RouteCode = *R3C 

Or RCT(RclIndex2).RouteCode = *R3D* 

Or RCT(RctIndex2).RouteCode = "R3RD Then 

' Z(D£f. mm or SR3C or SR3D^0 ' 

GoTo BOX_SELECT_CDM 
End If 

Rcllndex2 = Rctlndex2 + 1 
Loop 

' CCD&f. gR3M or SR3C or fiR3D#«SL ' 

' (D§g$B TR3RJ <f>P-lD£&<I>P-lD Jg^xUTIZir^ h 

CTRJiEXT.PALLET.lD.OLD = RCT (Rctlndexl). NPID_R3R 

CTR_NEXT_PALLETJD_NEff = " 

' ®mmwni<D&nmmm(Dw.m ' 

RCTtRctlndexD.SendedRoutelD = 9 V 

' &&MiRmmmT— 

Ret Index 1 = 0 
Rctlndex2 = 0 
Rctlndex3 = 0 
Rctlndex4 = 0 
Rctlndex5 = 0 
Rctlndex6 = 0 
Rctlndex7 = 0 
Rctlndex8 = 0 
Rctlndex9 = 0 
RctlndexlO = 0 
Retlndexll = 0 
Rctlndexl2 = 0 
Rctlndexl3 - 0 
Rctlndexl4 = 0 
RetlndexlS = 0 
Rctlndexl6 = 0 
Rctlndexl7 = 0 
Rctlndexl8 = 0 
RetlndexlS = 0 
Rctlndex20 = 0 
Exit Sub 

BOX__SELECT_CDM: ' SR3M or SR3C or eR3D*aj?t"*fflffl 
' &SY<DWM*frm & SSFO±R3C=%?S«r? 

'Rctlndex3 : SSF0Jfeff=%fH & iSF©ffa<OR3C=»«»&»3t"r*#-f 
' Re t Index4 : R3Cco§g?g£rgr£: *? ^ > h 

'RctIndex5:^FS1f?8^— Z/JKD. aPRD©^T<3D5B«E»©* U 7*W»"r<5*-f > 
Do Until RCT(RctIndex3).No < 1 

If Mid(RCT(RctIndex3).PallD, 1, Len (RCT (Rctlndex3). PallD) - I) 
= Mid(PalletID_Now, 1, Len (PalletlDJIow) - 1) 
And RCT(RctIndex3).Col = 1 _ 
And RCT(RctIndex3).Row = 1 
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And RCT (Ret Index3). Rout eCode = * R3C* 

And RCT(RctIndex3). SendedRoutelD = T Then 

' z<ov$* &$vomm=Vcm & esF<7)ffi@;<BR3c=3e$fi8§r 

Rctlndex4 = Rctlndex4 + 1 

If Rctlndex4 = RCT (Rctlndex3) . NextPal lets Then 

'-- C<OP$, &S¥<D&&=9tm & £SFtf)£R3C=5g$SiS— ' 

Do Until RCT(Rct!ndex5).No < 1 

RCT (RcllndexS). SendedRoutelD = " 
RctlndexS = Rctlndexb + 1 
Loop 
Exit Do 
End If 
End If 

Rcllndex3 = Rctlndex3 + 1 
Loop 

' <SR3D^O&&R3D*»$B?> ' 

* ^ _ ^ 

' Rctlndex6 : iR3D»ifttf -f 
' Rctlndex7 : £R3Cf§^#-f 
' Rctlndex8 : SR3M}g5joJW 
Do Until RCT(RctIndex6).No < l 

If Mid(RCT(RclIndex6).PalID. I, Len (RCT (Rcllndex6). Pal ID) - l) _ 

= Mid (Pallet IDJlow, I, Len (Pal letlDJJow) - I) 

And RCT (RctlndexB). Rout eCode = *R3D* _ 

And RCT (Rctlndex6). SendedRoutelD O ' l" Then 

' ££>Rn aR3D^#0&aR3D*«ffi-Cft5 ' 

' ®^$SR3D3>P-ID£:*<J>P-ID lU7i:t-v h ' 

CTRJJEXT_PALLETJDJ>LD = RCT (Rctlndex6) . NPID_R3D 
CTR_NEXT_PALLET_I D_NEW « " 

' ©8tt«WTBL$> gR3D§g$gfB^<£ JEjR ' 

RCT(RclIndex6). SendedRoutelD = ' I' 
• f&&mWm \Z g SFICR3C#*r 5 ^ ? — : ' 

Rctlndex7 = 0 

Do Until RCT(RctIndex7).No < l 

If Nid(RCT(RctIndex7).PalID. I, Len (RCT (Rctlndex7) . PallD) - I) _ 

= Mid(PalletID_Now, I, Len (Pal let IDJlow) - l) 

And RCT(RctIndex7). RouteCode = 'R3C* Then 

' ZftEf* gR3C£<Wo /tl/7h81S5I^c * 

Rctlndexl = 0 

Rctlndex2 = 0 

Rctlndex3 = 0 

Rctlndex4 = 0 

Rctlndex5 = 0 

Rctlndex6 = 0 

Rcllndex7 = 0 

Rctlndex8 = 0 

Rctlndex9 = 0 

RctlndexlO = 0 

Rctlndexll = 0 

Ret Index I2 = 0 

Rctlndexl3 = 0 

Rcllndexl4 = 0 
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Rctlndexlb = 0 
RctlndexlG = 0 
Rctindexl7 = 0 
Rctlndexl8 = 0 
Rctlndex19 = 0 
Rctlndex20 = 0 
Exit Sub 
End If 

Rctlndex7 = Rcllndex7 + I 
Loop 

' Z.<om, fiKWJ»TBL«ceSFtR3C*«#aEL&l»^6 

' mnmwwuz &s?\zm&mz>ft ? ' 

Rctlndex8 = 0 

Do Until RCT(RctIndex8).No < 1 

If Mid(RCT(Rctlndex8).PalID, 1, Len (RCT (Rcllndex8) . PallD) - 1) _ 
= Mid(PalletID_Now. 1, Len (Pal tetlD.Now) - 1) 
And RCT(RctIndex8).RouteCode = "R3M' Then 

' dOB#, &R3M^W- ^Vy hSIWl^ ' 

Rctlndexl = 0 

Rctlndex2 = 0 

Rctlndex3 = 0 

Rcllndex4 = 0 

RctlndexS = 0 

RctlndexG = 0 

Rctlndex7 = 0 

Rctlndex8 = 0 

Rctlndex9 = 0 

RctlndexlO = 0 

Rctlndexl 1 = 0 

Rctlndexl2 = 0 

RctIndexI3 = 0 

RctIndexI4 = 0 

RctlndexlS « 0 

RctIndexI6 = 0 

RctlndexW = 0 

RctIndexI8 = 0 

Rctlndexl 9 = 0 

Rctlndex20 = 0 

Exit Sub 
End If 

Rctlndex8 = Rctlndex8 + 1 
Loop 

* CC03#, gR3M*^ ' 

' «IKft!lOTBL<BgR3D5e$8K®<D£ U T ' 

RCT(RctIndex6). SendedRoutelD = " 

' aSF©R3D#fPfflt-*^T©R3C©«»MWTBLO««E«**> 

'Ret I ndex6 : S R3D<D Ua-H £f§7*-T S # * 

' Rc 1 1 ndex9 : S R3D<2 l/a - K <D % ftm R3Ctf $8 £ it^T 5 # < > * 

' RctIndexl7:fi&R3CCD l/D- K £«a*-r*#-f 

Rctlndex9 = 0 

Do Until Rctlndex9 = 10 

If RCT(RctIndex6). SendedR3CJ*03ID(RctIndex9) = " Then Exit Do 
Rcllndexl7 = 0 

Do Until RCT (RctlndexH). No < 1 
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~~" If RCT(Rctlndcxl7).PaMD = RCT(Rcllndex6). SendcdR3Cjr031D(Rctlndex9) _ 
And RCT(RclIndexl7).RouteCode = *R3C* _ 

And RCT(RctIndexI7).NPJD_R3C = RCT (Rctlndex6) . SendodR3C_VT04ID (Rctlndcx9) Then 

RCT(Rcllndexl7).SendedRouteID = ' V 
End If 

RcllndcxI7 = Rctlndexl7 + I 

Loop 

Rcllndex9 = Rcllndcx9 + 1 
Loop 

* ' 

Ret Index! = 0 
Rcllndex2 = 0 
Rcltndex3 = 0 
Rctlndex4 = 0 
RctlndexS = 0 
Rctlndex6 = 0 
Rcllndex7 = 0 
Rcllndex8 = 0 
Rctlndex9 = 0 
RclIndexlO = 0 
Rctlndexll = 0 
Rcllndexl2 = 0 
Rctlndexl3 = 0 
RclIndexM = 0 
RctlndexlS = 0 
Rctlndexl6 = 0 
Rc I Index 17 * 0 
Retlndexl8 = 0 
Rctlndexl9 = 0 
Rctlndex20 » 0 
Exit Sub 

End If 

Rcllndex6 = Rctlndex6 4 I 
Loop 

'ZOiaB. R3D©»ffi*ftTtt35tl»*^, eR3M7^WD&^R3M*«$fl^?OD«ftS-viiO. 



< S R3H#*r 0 & £ R3M*5E$a ? > 



'RctlndexlOieRSMm^-f 

•Rctlndexll : auCM**<f 

Do Until RCT (Ret Index 10). No < 1 

If Mid{RCT(RctIndexlO).PallD. I. Len (RCT (Ret Index 10) . Pal ID) - 1) 

« Kld(PaUetIDJto*. t, Len (Pallet IDJJow) - 1) _ 

And RCT(RctIndexlO).RouleCode = 'R3M* _ 

And RCT (RclIndexlO). SendedRoutelD O *Y Then 

' aR3M*^0&SR3M5fe%$a-Cfe5> ' 

• (DS6$Bcj>P-in£:&<J>P-ID 1 ' 

CTRJiEXT _P ALLET_ I D_0LD = RCT (RctlndexlQ). NPID.R3M 

CTILNEXTJ»ALLET^ID^KEff = " 
• <MmwmaaK3URtt£fifc0»r ' 

RCT (Ret Index 10) . SendedRoutelD ■ T 
' «»fti|WTBLIcaSFlCR3C^W*^? * 

Rctlndexll = 0 
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Do Until RCT (Rctlndexll). No < 1 " — 

If Uid {RCT (Rctlndexll). PallD. 1. Len (RCT (Ret Index! 1). Pal ID) - I) _ 
= Mid(PaIieUDJfoff. i. Len (Pal lelID_Nuw) - I) _ 
And RCT (Rcllndexl I). RouleCode * # R3C Then 

■ c<di#. mKtfG. nv-j hecM&a't. • 

Rcllndexl = 0 
Rctlndex2 = 0 
RcUndcxS - 0 
Rcllndex4 = 0 
RctlndexS = 0 
Ret IndexG = 0 
Rcllndex7 * 0 
Rcllndex8 = 0 
Rctlndex9 = 0 
RcllndexlO = 0 
Rctlndexll = 0 
Rcttndexl2 = 0 
Rcllndexl 3 ~ 0 
RctlndexH = 0 
RctlndexlS = 0 
Ret Indexl6 - 0 
RctIndexI7 = 0 
Rctlndexl8 = 0 
Rctlndexl9 = 0 
Rctlndex'20 = 0 
Exit Sub 
End If 

Rctlndexll = Rcllndexl] f 1 
Loop 

' &3SfBmBLcoaR3U%ffilH&co* U 7 ' 

RCT(RctIndexlO).SendedRouteID = " 

' eSFOR3U^ffiTS^TOR3C©@^{M^?g^-y;i,(D^^0a^^^> 
•RctIndexlO:eR3HOUD-H$m^"r^5}5<>^ 
*RctIndexl8:eR3MC0W3-HW. f£fflR3Ctt©£mjF*r<&:dW 
'RctIndexl9:ftUR3C60U3-K$IS^S#-f >^ 
Rctlndexl8 = 0 
Do Until Rcllndex 18 = 10 

If RCT (Ret Index 10) . SendedR3C_ff03ID (Ret Index 1 8) =" Then Exit Do 
Rctlndexl9 = 0 

Do Dntil RCT(Rctlndexl9).No < 1 

If RCT(RclIndexl9).PalID = RCT (RctlndexlO). SendedR3C J 03 ID (Ret Index 1 8) _ 
And RCT (Rctlndexl9). RouleCode = "R3C" „ 

And RCT(Rctlndexl9).NPID_R3C » RCT (Ret Index 10). SendedR3CJT04 ID (Rcllndexl 8) Then 

RCT(RctIndexl9). SendedRoutelD = " 1* 
End If 

Rctlndexl9 = Rctlndexl9 + 1 

Loop 

Rctlndexl8 = Rctlndexl8 + 1 
Loop 

• n \, v Yfssmf^ • 

Rctlndexl * 0 
Rctlndex2 - 0 
Rctlndex3 = 0 
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Rctlndex4 = 0 
Rctlndex5 = 0 
Rctlndex6 = 0 
Rcllndex7 = 0 
Rctlndex8 = 0 
Rctlndex9 = 0 
RctlndexIO = 0 
Rctlndexll = 0 
Rctlndexl2 = 0 
Rcllndexl3 = 0 
Rctlndexl4 = 0 
Rctlndex!5 = 0 
Rctlndexl6 = 0 
Rctlndexl7 = 0 
Rctlndexl8 = 0 
Rctlndexl9 = 0 
Rctlndex20 = 0 
Exit Sub 

End If 

RctlndexIO = RctlndexIO + 1 
Loop 



-< (S SFiCR3«<W D & S SFCD^R3C%?B^ ? ) or S R3C#8i L> 



Rctlndex = 12 gR3Ctg*o*W >^ 
Rctlndex2 = 13 SR3Cf§?K7fW 
Rctlndex3 = 14 eSF<0£R3C^^CHKffl;fc^>* 
Do Until RCT(RctIndexl2).No < 1 

If RCT(RctIndexl2).PallD = PalletlDJtow _ 
And RCT(RctIndexl2). RouteCode = "R3C* Then 

GoTo B0X_ALL_R3C_SENDED_CHK 
End If 

Rctlndexl2 = Rcllndexl2 + 1 
Loop 

' ZCDtff, SSFtcR3C#*§L 
Ret Index 1 = 0 
Rctlndex2 = 0 
Rctlndex3 = 0 
Rctlndex4 = 0 
Rctlndex5 = 0 
Rctlndex6 = 0 
Rctlndex7 = 0 
Rctlndex8 = 0 
Rctlndex9 = 0 
RctlndexIO = 0 
Rctlndexll = 0 
Rctlndexl2 = 0 
Rctlndexl3 = 0 
Rctlndexl4 = 0 
Rctlndexl5 = 0 
Rctlndex!6 = 0 
RctlndexH = 0 
Rctlndexl8 = 0 
Rctlndexl9 = 0 
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Rctlndex20 = 0 
Call OnErrorPRC 
Exil Sub 

' Z<Dm* gR3C#&0o eSF<0£R3CBffi8¥CHK^ 
B0X_ALL_R3C_SENDED_CHK : 

Do Until RCT(RctIndexl3).No < 1 

If RCT(Rcl Index 13). PallD = PalletlD.Now _ 
And RCT (Rctlndexl3). RouteCode = *R3C" 
And RCT(RctIndexl3LSendedRouteID = "1" Then 
Rctlndexl4 = RctlndexH + 1 
If RCT(RctIndexl3).NextPallels = Rctlndexl4 Then 
' Z<D\%. &SF4>£:R3Crt<5BttW-C»* 



Rc( 


Indexl = 0 


Rcl 


Index2 = 0 


Rcl 


Jndex3 = 0 


Rcl 


Index4 = 0 


Rcl 


Index5 = 0 


Rcl 


lndex6 = 0 


Rcl 


,Index7 = 0 


Rcl 


;Index8 = 0 


Rcl 


Jndex9 = 0 


Rcl 


ilndexlO = 0 


Rcl 


:indexll = 0 


Rcl 


ilndexl2 = 0 


Rcl 


Undexl3 = 0 


Rcl 


tlndex!4 = 0 


Rcl 


tlndex!5 = 0 


Rcl 


LIndexl6 = 0 


Rcl 


tlndexl7 = 0 


Rcl 


llndexl8 = 0 


Rcl 


tlndexl9 = 0 


Rcl 


Undex20 = 0 


Cal 


11 OnErrorPRC 


Exi 


it Sub 


End If 





End If 

Rctlndexl3 = Rctlndexl3 + 1 
Loop 

' S&fflWWffiT-- 7)\,<D SR3D& £R3M§£iaBE® <D ?>)T 

Do Until RCT (Ret Index 15). No < 1 

If RCT(RctIndexl5).PalID = Pal lelID_Now _ 

And (RCT (Ret Index 15). RouteCode = " R3D* 

Or RCT (Ret Indexib) . RouteCode = * R3M" ) Then 

RCT(RctIndexl5).SendedRoutelD = " 
End If 

RctlndexlS = RctlndexlS + 1 
Loop 

Do Until RCT (Ret Index 16). No < 1 

If RCT(RctIndexI6).PalID = PailetID_Now _ 

And RCT (Ret Index 16). RouteCode = *R3C" 

And RCT (Ret Index 16). SendedRoutelD O * f Then 

' ®%$84>P-ID^OP-ID X'JTtcir-y h ' 

CTR_NEXT_PALLET_I D J)LD = RCT (Ret Indexl 6). NP1D.R3C 
CTR„NEXT J* ALLET, I D,NEff = " 
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' ®¥tmfcMZ*> 

RCT (Rctlndex 16). SendedRoutelD = T 

' C<7>!$, ^l/^hgfMl^. ' 

Rctlndexl = 0 
Rctlndex2 = 0 
Rctlndex3 = 0 
Rcllndex4 = 0 
RctlndexS = 0 
Rctlndex6 = 0 
Rctlndex7 = 0 
Rctlndex8 = 0 
Rctlndex9 = 0 
RctlndexlO = 0 
Rctindexll = 0 
Rctlndexl2 = 0 
Rctlndexl3 = 0 
Rctlndexl4 = 0 
RctlndexlS = 0 
RctIndexI6 = 0 
Rctlndexl7 = 0 
Rctlndexl8 = 0 
Rctlndexl9 = 0 
Rctlndex20 = 0 
Exit Sub 

End If 

Rctlndexl6 = Rcllndexl6 + I 
Loop 

Call OnErrorPRC 
Exit Sub 

End Sub 

Sub SetFirstPalletldO 
Ret Index = 0 

Do Until RCT (Ret Index). No < 0 

If RCT (Ret Index). Row = 1 And RCT (Ret Index). Col = 1 Then 

CTR_NEXT_PALLET_ID__NEff = Left (RCT (Rctlndex). PallD. Len (RCT (Ret Index) . Pal ID) - 1) & '4' 
Rctlndex = 0 
Exit Sub 
End If 
Rctlndex = Rctlndex + 1 
Loop 
End Sub 

Sub RunPalletsO 
Rem CALLPLT 

If CTR JJEXT _PALLET J D J)LD = '@*PALID@' Then ¥n Call 0XPALID0 ¥n Exit Sub ¥n End If 

End Sub 

• *#****mm****x^— II74BMI*********************** 
Sub OnErrorPRC 0 
END 

End Sub 

Sub MakeRuteControlTable 0 
' Rctlndex = 0 
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Open ' syubetu_out. Ixt* For Input As #1 
Do Until EOF(l) 

Line Inpul #1, InputRCT 

splitEx InpuiRCT. vbTab, ForSplitO 

RCT (Ret Index). No = ForSplit(O) 

RCT (Ret Index). SFID = ForSplit (I) 

RCT (Ret Index). Row = ForSplit (2) 

RCT (Ret Index). Col = ForSplitO) 

RCT (Ret Index). Pal ID = ForSplit (4) 

RCT (Ret Index). SubNo = ForSplit (5) 

RCT (Ret Index). RouteCode = ForSplit (6) 

RCT (Ret Index). NextPal lets = ForSpli I (7) 

RCT(RctIndex).NPID_R3R = ForSplit (8) 

RCT (Ret Index) . NPID_R3M = ForSpl i t (9) 

RCT (Ret Index). NPIDJttD = ForSplit (10) 

RCT(RctIndex).NPID_R3C = ForSplit (11) 

RCT (Ret Index). SendedRoutelD = ForSplit (12) 

Rctlndexl = 0 

Do Until Rctlndexl = 10 

splitEx ForSplit (13 + Rctlndexl), V, ForSpIil2() 
RCT (Ret Index) . SendedR3CJV03ID (Rctlndexl) = ForSplit2(0) 
RCT (Ret Index) . SendedR3C_W04ID (Rctlndexl) = ForSpli 12(1) 
ForSpl it2 (0) = " 
ForSpl il2 (1) = " 
Rctlndexl = Rctlndexl + 1 

Loop 

Ret Index = Ret Index + 1 
Loop 



Close #1 




InputRCT 


_ mm 


Rctlndex 


= 0 


Rctlndexl = 0 


ForSplit 


(0) = " 


ForSplit 


(1) = - 


ForSplit 


(2) = " 


ForSplit 


(3) = " 


ForSplit 


(4) = " 


ForSplit 


(5) = " 


ForSplit 


(6) = " 


ForSplit 


(7) = " 


ForSplit 


(8) = " 


ForSplit 


(9) = " 


ForSplit 


(10) = 


ForSplit 


(11) = " 


ForSplit 


(12) = " 


ForSplit 


(13) = " 


ForSpl it 


(14) = " 


ForSplit 


(15) = " 


ForSplit 


(16) = " 


ForSplit 


(17) « " 


ForSplit 


(18) = " 


ForSplit 


(19) = '* 


ForSplit 


(20) = " 


ForSplit 


(21) = " 
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ForSplit (22) = " 
End Sub 

• ****************SPLITB9S(*********************** 

Public Sub spl i lEx (sTexl As String. sDelimiter As String, ByRef sResultO As String) 
Dim lLenText As Long 
Dim IPos As Long 
Dim IFindPos As Long 
Dim i As Long 
ReDim sResult (0) 
ILenText = Len IsText) 
If ILenText = 0 Then 

Exit Sub 
End If 
i = 0 

For IPos = 1 To ILenText 

IFindPos = InStrdPos, sText, sDelimiter) 
If IFindPos = 0 Then IFindPos = ILenText * I 
ReDim Preserve sResult(i) 

sResult(i) = Mid$(sText. IPos, IFindPos - IPos) 
i = i 4 1 

IPos = IFindPos 
Next 

If Mid$(sText. ILenText. I) = sDelimiter Then 
ReDim Preserve sResult U) 
sResul t (i) = 
End If 
End Sub 
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ttffi-±s<i7 h)l(DM : 0 0 1-1 

jEM/xii/Ezmm/mffim/mftmo)!. 2 mn&^o 0 1 0 - 1 > 

Option Explicit 
Rem #DEFPUB 
Rem PUB4N2 

Private W@fc30OX31O*28OX29O*02@ As @%23@ 
Rem PUBIN2 

Private @X3 10*280X290*02® As 6X23@ 
Rem PUB5C2 

Private CTRLJ@X30O*28OX29OTSjrRANSITI0N_FLG As Integer 
Rem PUB5Y2 

Private CTRLjm30O*28O*29OTSjrRANSm0NJ ? LG_P As Integer 
Rem PUB5B2 

Private CTRLJ^30O^28O»29@^STS^TRANSITI0N_FLG_PP As Integer 
Rem PUB6F2 

Private Cmj©X30OX3lO*28O*29OX02O0T_VALID_FLG As Boolean 
Rem #DEFEND 
Rem #DEFPRV 
Rem PRV2T2 

Private W@%30O*31O*28O*29O*02Ok As @X23@ 
Rem PRV7R2 

Private CTRLJA@X30O*29@_lNG_FLG As Boolean 
Rem PUBKU 

Private CNS_NOT_KUO*23@ As @X23@ 
Rem $PRV2W2 
@%152Q 
Rem $PRV2E2 
Rem IPRV4W2 
@X155@ 
Rem $PRV4E2 
Rem SDEFEND 

Public Sub MainO 

Rem #VECREP Private Sub L2_@X3 10*280*290*02® () 
B0X_1 : 
Rem PRVLG 

If W@*30O*3 10*280*290*02® = CNSJH)TjaJO*23@ Then 

G0T0 B0X_2 
End If 

G0T0 BOX_E 

BOX J. : 
Rem PRVLG 

@xi5@ 

BOX J : 
Rem PRVLG 

If W@X30@_@*31@_@*28@_JX29@_@X02@_wk O CNS_N0T_KUH_@*23@ Then 

G0T0 B0X_4 
End If 

G0T0 B05L5 

B0X_4: 
Rem PRVLG 

W&X3Q@_@*31®_@X28®_@X298_®X02@ = ff@*3OO*31@_@*28@_@X29@_@*O20jyk 
Rem PRVLG 

CTRL3@*30O*28@_@X29OTS^.TRANSITI0NJLG = Cmj'@X30@._@X28@_@*29OTSjrRANSITI0NJ ? LG + 1 
GoTo BOX J 

BOO: 
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h)l<D§± : 0 0 1 - 2 

JEM/xtj/&mm/mmi&/m&m<DL 2 (mm^o 010-2) 

Rem PRVLG ~ 
1 f CTRL^30OX28OX29@^STS_TRANSITI0NJLG^P 
= CTRLff@%30O«28OX29@_STS.TRANSITI0N„FLG_PP Then 

G0T0 B0X_6 
End If 

G0T0 B0X_7 

BOXJ: 
Rem PRVLG 

CTRL_ff@*30O«31O»28O%29O«02@_N0T„VALIDJLG = True 
G0T0 BOX_E 

B0X_7: 
Rem PRVLG 

CTRL„W^30O«29@_INGJLG = True 

G0T0 BOX_E 
BOXJ: 
End Sub 
Rem *** PRCEND 
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jE«/a*/iBWte/»fflfi«g/ttS«6<PL 3 (fl#^ 0 0 2 0- 1) 

Option Explicit "™ " ~~ 

Rem #DEFPUB 
Rem PUB4N3 

Private W@X30O*31O*28O*29O*02@ As Integer 
Rem PUB1N3 

Private W§*305O*3 150*2850*2950*200® As @%235@ 
Rem PUB5C3 

Private CTRLJ^30O*28O*29OTSJ*ANSITI0NJ ? LG As Integer 
Rem PUB5Y3 

Private CTRLJ§S530§.§X28§_©X29e_STSJRANSITI0NJLG_P As Integer 
Rem PUB5B3 

Private CTRLJiX30§_«X28«JX298JTS_TIU^SITIONJLG L JPP As Integer 
Rem PUB6F3 

Private CTRLJT9%30O*3 lO*28O*29O*02§J0T_VALID_FLG As Boolean 
Rem #DEFEND 
Rem IDEFPRV 
Rem PRV2T3 

Private ff@*30O*31O*28O*29O*02Ok As Integer 
Rem PRV7R3 

Private CTRL_W@*30O*29@JNG_FLG As Boolean 
Rem PUBKU 

Private CNSJWTJCUHJnteger As Integer 
Rem SPRV2W3 

mm 

Rem SPRV2E3 
Rem SPRV4W3 

mm® 

Rem SPRV4E3 
Rem tDEFEND 
Public Sub MainO 

Rem #VECREP Private Sub L3_@*3 10*280*290*02® 0 
BOX J : 
Rem PRVLG 

If W8X30O*3 10*280*290*020 = CNSJWTJttJHJnteger Then 

GoTo B0X_2 
End If 

GoTo BOXJE 

BOX _2: 
Rem PRVLG 

mm 

B0X_3: 
Rem PRVLG 

If ff@*30O*31O*28O*29O*02Ok O CNSJK)T_KUILInteger Then 

GoTo B0X_4 
End If 

GoTo B0X_5 

B0X_4: 
Rem PRVLG 

W@S30O*3 10*280*290*02® = W0S3OO* 3 1 @_@*28@_®*2 9095020k 
Rem PRVLG 

CTRL_ff@9S30O«28OX29OTS_TRANSITI0N_FLG = CTRL_W§X30O*28O^29§_STS_TRANSITI0N^FLG + 1 
GoTo BOX J 

B0X_5 : 
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h)\><DM : 0 0 2-2 
iE«/lH*/iBJII«K/*ffi«/«l#«fi!)L 3 («I#«0 0 2 0-2) 



Rem PRVLG 

I f CTRLjeX30MX28iJX29§_STSJRANSITIONJFLGLP 
= CTRLJW30OX28MX29§_STSJRANSITI0NJ ? LGJ > P Then 

GoTo B0X_6 
End If 

GoTo B03L7 

B0X_6 : 
Rem PRVLG 

CTRL3@%30M»31O^28@ - @»29O«026_N0TJ 7 ALID_FLG = True 
GoTo BOX J 

B0X_7: 
Rem PRVLG 

CTRLjra%30§_«W9§JNGJLG = True 
GoTo BOX_E 

BOX J: 
End Sub 

Rem *** PRCEND 
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MKDSl : 0 0 3 - 1 
lEa/M^/aBW^/^fc/ttjllftiOL 4 (ffgjtfO 0 3 0- 1) 
Option Explicit 
Rem SDEFPUB 
Rem PUB4N4 

Private W@*30O*3 10X280*290X02© As @*23@ 
Rem PUBIN4 

Private W@S305O*315O*285O*295O*200@ As @%235@ 
Rem PUB5C4 

Private CTRLJW30O*28O«29OTS_TRANSIT10NJLG As Integer 
Rem PUB5Y4 

Private CTRLJ§X30§_«X28§_®X29§JTSJRANS1TIONJLGJ > As Integer 
Rem PUB5B4 

Private CTRLJ§X30«JX28§««l52MJTSJRANSIT10OLGJ > P As Integer 
Rem PUB6F4 

Private CTRLjm30OX31O*28O*29O«02O0TJ r ALIDJLG As Boolean 
Rem #DEFEND 
Rem PUB4B4 

Private W®*300O*3 100*2800*2900*2000 As @*23@ 
Rem PUB4N3 

Private W3_@*3 10*280*290*02® As Integer 
Rem PUB4N2 

' Private W2_@*3 10*280*290*02® As 0*23® 
Rem #DEFPRV 
Rem PRV2T4 

Private W@*30@_@*31@_@*28@_@*29@_@*028_wk As @*23@ 
Rem PRV7R4 

Private CTRL_W@*30@_®*29@_INGJ f LG As Boolean 
Rem *PUBKU 

Private CNS_N0TJOJH_S t r i ng As String 
Private CNSJfOTJttJHJnteger As Integer 
Private CNSJWTJOJILBoolean As Boolean 
Private CNS_NOT_KUH_Long As Long 
Private CNSJJ0TJO)H_S ingle As Single 
Private CNSJiOTJttJHJtouble As Double 
Private CNS.NOTJOJILVa riant As Variant 
Private CNSJTOTJKUHJurrency As Currency 
Private CNS_NOTJOJH_Byte As Byte 
Private CNS_NOT_KUH_Date As Date 
Rem $PRV2W4 

mm 

Rem SPRV2E4 
Rem SPRY4W4 
§951826 
Rem SPRV4E4 
Rem 3DEFEND 
Public Sub MainO 

Rem SVECREP Private Sub L4_8*31@_@*28O*29@_@*02@_@*07® 0 
BOX J : 
Rem PRVLG 

If W@X30O*3 10*280*290*026 = CNSJH)TJOJIL@*23@ And _ 
Rem PRVLG 

W3_@*31O*28O*29O*02@ = ®*07@ Then 

GoTo B03L2 
End If 
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ttm-^i? hJKDM : 0 0 3-2 

jE&/mt>/m&m/&mm/&ft&<DL 4 0030-2) 

G0T0 BOXJ " " 

BOXJ: 
Rem PUB IN 

If ff®%305OK315O£285OS295®_@*200@ = CNSJOTJUH_@S235@ Then Go To BoxJ 
Rem PRVLG 

@%17@ 

BOXJ : 

Rem PRVLG 

If W8S30O*31OS28O*29O%02@_wk O CNSJ0TJUHJ£23§ Then 

G0T0 BOXJ 
End If 

G0T0 BOXJ 

BOXJ : 
Rem PRVLG 

m%m_@%Z 1@ J*286 J*29@ J*02@ = K*@S30@ JX3 1@ J*28O*29@_@*02@_wk 
Rem PRVLG 

CTRLJ@«30@_^280*29@_STS_TRANSITIONJLG = CTRLJ@*30O*28O*29@JTSJRANSITI0NJLG + 1 
GoTo BOXJ 

BOXJ : 
Rem PRVLG 

I f CTRL_ff@X30@_^28O«29@JTS JRANSITIONJLGJ 
= CTRLJ*©%30@^28@_@^29@JTS_TRANSITIONJLGJP Then 

GoTo BOXJ 
End If 

GoTo BOXJ 

BOXJ: 
Rem PRVLG 

CTRLJ@3530OX31@J«28OX29@J*02O0T_VALIDJLG = True 
GoTo BOXJ 

B0X_7 : 
Rem PRVLG 

CTRLJ*@S30@J329@JNGJLG = True 
GoTo BOXJ 

BOXJ: 
End Sub 

Rem *** PRCEND 
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jE&/\ft/&&m/mmi&/&ftM<DL 2 mmm^o 0 4 0 - 1 > 

Option Explicit 
Rem #DEFPUB 
Rem PUB4N2 

Private W8X308_8X318_8X288_8X29@_8X028 (8X268, 8X278) As 8X238 
Rem PUBIN2 

Private 8X3I8_8X288_8X298_8X028 (8X268, 8X278) As 6X238 
Rem PUB5C2 

Private CTRL_W6S530@_@X28®_esi529e_STS_TRANSITION FLG As Integer 
Rem PDB5Y2 

Private CTRL.W§«30MX28«JX29«_STSJRANSITI0HJLGJP As Integer 
Rem PUB5B2 

Private CTRLJ'W30MX28§_W29§.STSJRANSITIONJLGJPP As Integer 
Rem PUB6F2 

Private CTRLJ@X30O^31@^28O«29O^02O0T_VALID.FLG(@X26@, @X278) As Boolean 
Rem #DEFEND 

Rem #DEFPRV 
Rem PRV2T2 

Private W8X308_8X3I8_8X288_8X298_8X028_wk (8X268. 8X278) As 8X238 
Rem PRV7R2 

Private CTRL_W8X308_8X298_1NGJ?LG As Boolean 
Rem PUBKU 

Private CNS_N0T_KUIL8X238 As 8X238 

Private Gyou as Integer 

Private Retu as Integer 

Private UtLCnt as Integer 

Private Soto_Cnt as Integer 

Private Uti_Max as Integer 

Private SotoJIax as Integer 
Rem $PRV2W2 
8X1528 
Rem SPRY2E2 
Rem $PRY4W2 
8X1558 
Rem $PRV4E2 
Rem #DEFEND 

Public Sub MainO 

Rem #VECREP Private Sub L2_8X3 1@_8X288_8X298_8X028 0 

Gyou = 0 

Retu = 0 
Rem PRVLG 

If 8X348 < 8X358 then 
Rem PRVLG 

Utijiax = 8X268 

Rem PRVLG 

SotoJIax = 8X278 

End If 
Rem PRVLG 

If 8X348 > 8X358 then 
Rem PRVLG 

Utijiax = 8X278 

Rem PRVLG 

SotoJIax = 8X268 
End If 
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f\ffS-:£^ h;KDS : 0 0 4-2 

jEm/xti/&mG/mffim/mftte<DL 2 (g@##o 0 4 0 - 2) 

UtLCnt = 0 ~" ™ — 

Solo_Cnl = 0 
Do Until Soto_Cnt = SotoJIax + 1 
Utijnl = 0 
Rem PRVLG 

If @%34@ < @*35@ then 
Gyou = UtLCnt 
Retu = Soto_Cnt 
End If 
Rem PRVLG 

If @*34@ > @X35@ then 
Gyou = Soto_Cnt 
Retu = UtLCnt 
End If 

Do Until Uti.Cnt = Uiijflax + 1 
B0X_1 : 
Rem PRVLG 

If W@S30OS31O*28O*29@_@S02@ (Gyou. Retu) = CNS_N0T_KUO*23@ Then 

GoTo B0X_2 
End If 

GoTo BOO 

B0X_2 : 
Rem PRVLG 
@%15§ 

B0X_3 : 
Rem PRVLG 

If W@X30O*31O«28O»29O«02@_wk (Gyou, Retu) O CNS_N0TJ(UIL@*23@ Then 

GoTo B0X_4 
End If 

GoTo B0X_5 

B0X_4 : 
Rem PRVLG 

W@*30O*3 lOS28@JS29@_@S02@ (Gyou. Re tu) = W@S30O*3 lO*28O*29O*02@_wk (Gyou, Re tu) 
Rem PRVLG 

CTRL_ff^30MX28O«29@_STS_TRANSITI0NJLG = CTRL_W@X30OX28O«29^STS„TRANSITI0N^FLG + 1 
GoTo BOX_E 

BOX J : 
Rem PRVLG 

If CTRL_W@»30O^28OX29@_STSJRANSITI0N_FLG_P 
= CTRLJ§»30O»28@_@«29@_STS_TRANSITI0NJLG_PP Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

B0X_6 : 
Rem PRVLG 

CTRLJ^308_§X3IO^28O9529O5502@_N0TJ'ALID„FLG (Gyou, Retu) = True 
GoTo BOXJ 

B0X W 7: 
Rem PRVLG 

CTRLJte*3QO*298_INGJ ? LG = True 
GoTo BOXJ 

BOO: 

Uti_Cnt = Uti.Cnt + 1 
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[[1106] 

tt$t-±s<t7 h)l<Dm : 0 0 4-3 

iE%/Ow:ft/B^W/^ffi&/%gMlSO L 2 (jggj#g 0 0 4 0-3) 
Rem PRVLG 

If @%34@ < @%35@ then 

Gyou = Uti_Cnt 

Retu = Soto_Cnt 
End If 
Rem PRVLG 

If ®%U% > @9535@ then 

Gyou = Soto_Cnt 

Retu = Uti.Cnt 
End If 
Loop 

Soto_Cnt = Soto.Cnt + 1 
Rem PRVLG 

If @%34@ < @%35@ then 
Gyou = Uti.Cnt 
Retu = Soto_Cnt 
End If 
Rem PRVLG 

If »4@ > @*35@ then 
Gyou = Soto_Cnt 
Retu = Uti_Cnt 
End If 
Loop 
Gyou = 0 
Retu = 0 
Uti_Cnt = 0 
Soto_Cnt = 0 
Uti_Max = 0 
Soto_Max = 0 
End Sub 

Rem *** PRCEND 



ffifE#2 004-3099195 



2003-331373 



^-v: 105/ 



imi 07] 

{^-±^2 bJlOm : 0 0 5-1 

JEm t /^tj/mm^/mm^/ni^<D i L 3 (g*ij&^o qso-d 

Option Explicit " 
Rem 3DEFPUB 
Rem PUB4N3 

Private W@X30OX31OX28OX29OX02@(8S26@.@X27@) As Integer 
Rem PUBIN3 

Private W0X3O5OX3 1 5OX285OX295OX200® (@K265@. @»275@) As @X235© 
Rem PUB5C3 

Private CTRLJ'@X30OX28OX29@_STS_TRANSITI0N_FLG As Integer 
Rem PUB5Y3 

Private CTRL_W30OX28O«29OTS^TRANSITI0N_FLG_P As Integer 
Rem PUB5B3 

Private CTRL_W@X30OX28OX29OTS_TRANSITI0N_FLG PP As Integer 
Rem PUB6F3 

Private CTRL„W@X30OX31OX28OX29OX02O0T_VALID_FLG (@X26@. @X27@) As Boolean 
Rem SDEFEND 
Rem #DEFPRV 
Rem PRV2T3 

Private W@*30OX31OX28OX29OX02Ok(@X26OX27@) As Integer 
Rem PRV7R3 

Private CTRL_W@K30OX29@_ING_FLG As Boolean 
Rem PUBKU 

Private CNSJJOTJOJHJnteger As Integer 

Private Gyou as Integer 

Private Retu as Integer 

Private UtLCnt as Integer 

Private Soto_Cnt as Integer 

Private UtiJJax as Integer 

Private Soto_Max as Integer 
Rem $PRV2W3 
1X1626 
Rem $PRV2E3 
Rem $PRV4W3 
©X165§ 
Rem $PRV4E3 
Rem #DEFEND 

Public Sub MainO 

Rem SVECREP Private Sub L3_@X3 1OX28OX29OX02® 0 

Gyou = 0 

Retu = 0 
Rem PRVLG 

If @X34@ < @*35@ then 
Rem PRVLG 

UtiJIax = @S26@ 

Rem PRVLG 

SotoJIax = @X27@ 

End If 
Rem PRVLG 

If ®X34@ > mm then 
Rem PRVLG 

UtiJIax = @X27@ 

Rem PRVLG 

SotoJIax = 0X260 
End If 
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[EB 1 0 8] 

b)MDM : 0 0 5 - 2 

UtLCnt = 0 
Soto_Cnt = 0 
Do Until Soto.Cnt = SotoJIax + 1 
UtLCnt = 0 
Rem PRVLG 

I f @X34@ < mm then 
Gyou = UtLCnt 
Retu = Soto_Cnt 
End If 
Rem PRVLG 

if mm > mm then 

Gyou = Soto_Cnt 
Retu = UtLCnt 
End If 

Do Until UtLCnt = UtiJIax I 1 
BOX J : 
Rem PRVLG 

If WW30§_§X3iejX28§_«X29i^«l502i (Gyou. Retu) = CNSJWTJOJHJnteger Then 

GoTo B0X_2 
End If 

GoTo BOXJE 

B0X_2: 
Rem PRVLG 

mm 

BOO : 
Rem PRVLG 

If TOX30§^«%31iJX28«.i%29M*02Ok (Gyou. Retu) O CNSJWTJCUHJnteger Then 

GoTo B0X_4 
End If 

GoTo B0X_5 

B0X_4 : 
Rem PRVLG 

W@X30O*31O*28OX29@_@*02@ (Gyou, Retu) = tt@X30O*31O*28O*29O*G2@_wk (Gyou. Retu) 
Rem PRVLG 

CTRLJ@X30O«28O^29@.STS_TRANSITI0NJ ? LG = CTRLJ"§X30«_§S!528§JX29fl_STSJRANSITI0NJLG i 1 
GoTo B0X_E 

B0X_5: 
Rem PRVLG 

i f CTRL^W@X30O»28OX29@_STS^TRANSITI0N_FLG_P 
= CTRL_W@X30@_@X288_@X29@_STS_TRANSITIONJLG_PP Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

B0X_6: 
Rem PRVLG 

CTRLjes;30§.@SK3!MX28§„@aj29OX02O0T_VALIDJ J LG (Gyou. Retu) = True 
GoTo BOXJ 

B0X_7: 
Rem PRVLG 

CTRLJ«X30§_«X29«_INGJ ? LG = True 
GoTo BOXJB 

BOXJ: 

UtLCnt = UtLCnt + 1 
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iEM/\&?i/Mmm/mmm/m.Rm<Di. 3 (^s#^o oso-3) 



Rem PRVLG 



If @%34@ < @%35@ then 
Gyou = Uti_Cnt 
Retu = Soto.Cnt 

End If 



Rem PRVLG 



If %%U% > @S35@ then 
Gyou = Soto_Cnt 
Retu = UtLCnt 
End If 

Loop 

Soto_Cnt = Soto_Cnt + 1 
Rem PRVLG 

If @*34@ < @%35@ then 
Gyou = Uti_Cnt 
Retu = Soto_Cnt 
End If 
Rem PRVLG 

If %%ZA% > @%35@ then 
Gyou = Soto_Cnt 
Retu = Uti_Cnt 
End If 
Loop 

Gyou = 0 
Retu = 0 
Uti_Cnt = 0 
Soto_Cnt = 0 
Uti_Max = 0 
Soto_Max = 0 
End Sub 

Rem *** PRCEND 
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h)V<Dm : 0 0 6-1 

Option Explicit 
Rem #DEFPUB 
Rem PUB4N4 

Private W@X30O*3 10*280*290*028 (@*268, @%27@) As @X23@ 
Rem PUBIN4 

Private W@*305O*3 15O*285O*295O*2008{®X265O*275@) As 8*2358 
Rem PUB5C4 

Private CTRLJl*308_8*288^X298_STSJ , RANSmONJ ? LG As Integer 
Rem PUB5Y4 

Private CTRLjeX30OX28ejX29§.STS - TRANSlTI0N_FLG_P As Integer 
Rem PUB5B4 

Private CTRLJ^30O%28OX29@3TS„TRANSITI0NJLG„PP As Integer 
Rem PUB6F4 

Private CTRLJi%30§JX31§_§S528«_W;29«JX02l_NOT„VALlDJLG (8*268, 8X278) As Boolean 
Rem #DEFEND 
Rem PUB4B4 

Private W8*3008_8*3108_8X2808_8X2908_8X2008 (8X268. 8X278) As 8X238 
Rem PUB4N3 

Private W3_8X318_8X288_8X298_@X028 (8X268, 8X278) As Integer 
Rem PUB4N2 

' Private W2_8X318_8X288_8X298_8X028 (8*268, 8X278) As 8X238 
Rem SDEFPRV 
Rem PRV2T4 

Private W8*308_8X318_8X288_8X29OX028jsk (8X268, 8X278) As 8X238 
Rem PRV7R4 

Private CTRLJ*8X308_8X298JNGJ ? LG As Boolean 
Rem *PUBKU 

Private CNSJWTJOJILSlring As String 

Private CNSJJOTJOJHJnteger As Integer 

Private CNS_NOT_KWLBoolean As Boolean 

Private CNS_NOTJOJH_Long As Long 

Private CNSJJOTJOJJLS ingle As Single 

Private CNSJWT_KUHJ)ouble As Double 

Private CNSJJOT_KUH_Va riant As Variant 

Private CNS_NOTJ(UH_Currency As Currency 

Private CNS_NOT_KUH_Byte As Byte 

Private CNSJWTJUJOate As Date 

Private Gyou as Integer 

Private Retu as Integer 

Private Uti_Cnt as Integer 

Private Soto^Cnt as Integer 

Private UtiJIax as Integer 

Private Soto_Max as Integer 
Rem $PRV2ff4 
8X1728 
Rem $PRV2E4 
Rem SPRV4W4 
0X1820 
Rem $PRV4E4 
Rem 3DEFEND 

Public Sub MainO 

Rem #VECREP Private Sub L4_8X318_8X288 - 8X298_8X028_8X078 0 
Gyou = 0 
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ttm-£*V7 h)V<DM : 0 0 6 - 2 

IE«/aA/ByJ»/»ffliai^»«|g)L 4 (ggffifO 0 6 0- 2) 

Retu = 0 
Rem PRVLG 

If mm < @%358 then 
Rem PRVLG 

UtiJIax = 1X260 

Rem PRVLG 

soto_Max = mm 

End If 
Rem PRVLG 

If @S34@ > 6X35© then 
Rem PRVLG 

UtiJIax = @X27@ 

Rem PRVLG 

SotoJIax = @X26@ 
End If 
UtLCnt = 0 
Soto_Cnt = 0 
Do Until Soto_Cnt = SotoJIax + 1 
UtLCnt = 0 
Rem PRVLG 

If 8X34© < @X35® then 
Gyou = UtLCnt 
Retu « Sotojnt 
End If 
Rem PRVLG 

I f @X34@ > @X35@ then 
Gyou = Soto.Cnt 
Retu = UtLCnt 
End If 

Do Until UtLCnt = UtiJIax + 1 
BOX. I: 
Rem PRVLG 

If W®X30OX31O*28O*29M*02& (Gyou, Retu) = CNS_N0T_KU1L@X23@ And _ 
Rem PRVLG 

ff3_©X31O»28M*29O*02@ (Gyou, Retu) = @X07@ Then 
GoTo BOX Jl 
End If 

GoTo BOO 

B0X_2 : 
Rem PUBIN 

If W®X305§_@X315M*285OX295OX200i (Gyou. Retu) = CNS_N0TJOJH_8X235@ Then Go To Box_3 
Rem PRVLG 

B0X_3 : 
Rem PRVLG 

If Wfl%3O©_iX31i_0X28MX29MXO2ejirk (Gyou. Retu) O CNSJK)TJCUIL«*23® Then 

GoTo B0X.4 
End If 

GoTo B0)L5 

B0X_4: 
Rem PRVLG 

WGX30OX3 10*280X290*028 (Gyou, Retu) = W@X30OX31O*28O*29O*02Ok (Gyou, Retu) 
Rem PRVLG 
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jEm/anj/mmm/mmm/si^M<oi. 4 regani oo6o-3) 

CTRLJ«X30®_«X28§^eX29e_STS - TRANSITIONJLG = CTRLJ®X30§_§X28MX298JTSJRANSITIOKJ ? LG + 1 
GoTo BOXJ 

BOX J : 
Rem PRVLG 

I f CTRL je%30«_eX28«JX29§_STSJRANSITIONJ J LGJ > 
= CTRLjr«X30§^§%28§_©X29i_STSJRANSITIONJLGJ > P Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

B0X_6: 
Rem PRVLG 

CTRLJ@«300%310«280^290«02000ALID_FLG(Gyou, Retu) = True 
GoTo BOXJ 

B0X_7: 
Rem PRVLG 

CTRL_M*30O*29@_lNG_FLG = True 
GoTo BOXJ 

BOXJ: 

UtLCnt = UtLCnt + 1 

Rem PRVLG 

If @*34@ < mm then 

Gyou = UtLCnt 

Retu = Soto.Cnt 
End If 

Rem PRVLG 

if @*34@ > mm then 

Gyou = Soto_Cnt 

Retu = UtLCnt 
End If 

Loop 

Soto_Cnt = Soto.Cnt + 1 
Rem PRVLG 

If @*346 < mm then 
Gyou = UtLCnt 
Retu = Soto_Cnt 
End If 
Rem PRVLG 

If 8*34@ > mm then 
Gyou = Sotojbt 
Retu = UtLCnt 
End If 
Loop 
Gyou = 0 
Retu = 0 
UtLCnt = 0 
Soto.Cnt = 0 
Dtijtax = 0 
SotoJIax = 0 
End Sub 

Rem *** PRCEND 
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iE&/mj3/&pm/mmft/&&mv>L 3 (ga## 0 0 7 0 - 1 > 

Option Explicit 
Rem #DEFPliB 
Rem PUB4N3 

Private W§X308_8X318.8X288_8X298_§X028 As Integer 
Rem PUBIN3 

Private W8X305@_8X3158_JX285@_@X295G_8X2008 As 8X2358 
Rem PUB5C3 

Private CTRL_W8X3Qe.eX288.8X29@_STS_TRANSITI0N_FLG As Integer 
Rem PUB5Y3 

Private CTRL_W@X30@_@X28@_8X298_STS.TRANSITIO!LFLGJ> As Integer 
Rem PUB5B3 

Private CTRLjr8X308_8X288_8X298_STS_TRANSITION_FLG_PP As Integer 
Rem PUB6F3 

Private CTRLJ'8X308^«X31§_eX28«^«X29MX02O0T_VALIDJ ? LG As Boolean 
Rem 9DEFEND 
Rem #DEFPRV 
Rem PRV2T3 

Private W§X308_«X318_8X288_flX29®_«X028_wk8%078 As Integer 
Rem PRV7R3 

Private CTRL.W8X308_8X298_ING.FLG As Boolean 
Rem PUBKU 

Private CNSJWT.KUHJnteger As Integer 
Rem SPRV2W3 
©351629 
Rem $PRV2E3 
Rem SPRY4W3 
8X1658 
Rem $PRV4E3 
Rem #DEFEND 

Public Sub MainO 

Rem SVECREP Private Sub L3_8X3I8_8X288_8X298_@X02@0 
B0X_1 : 
Rem PRVLG 

If W8X308_8X318_8X288_8X298_8X028 = CNS_NOTJUJH_Integer Then 

G0T0 B0X_2 
End If 

G0T0 BOXJE 

BOX J: 
Rem PRVLG 
8X1 68 

B0X.3 : 
Rem PUBL3F 

If W@X308_eX318_8X28e_8X298_8X028_wkeX078 = 1 Then GoTo B0X.4 
GoTo B0X_5 

B0X.4: 
Rem PUBL3F 

If W8X308.8X3 18.8X288.8X298_8X028_wk8X078 = 1 Then W8X308_8X318_8X288_8X298_8X028 = 8X078 
Rem PRVLG 

CTRL_W@X308_8X288_8X298_STS_TRANSITI0N_FLG = CTRL_W@X308.@X28@ - @X298_STS„TRANSITI0N_FLG t 1 
GoTo BOXJE 

B0X.5: 
Rem PRVLG 

If CTRL.W8X 3 08.8X2 88.8X2 98.STS.TRANS I TION_FLG_P 
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ttWi-£'<i7 b)MDM : 0 0 7-2 

iE^/tB ti/mnm/mmm/mm'f&to l 3 assami 0 070-2) 



= CTRLWeX30§JX28iJX29©_STS_TRANSITI0NJ J LGJ , P Then 
G0T0 B0X.6 
End If 

G0T0 B0X_7 

B0X_6 : 
Rem PRVLG 

CTRL_ff@«30O%31@_@»28@^29@_@X02@_N0TJ f ALIDJLG = True 
G0T0 BOX J 

B0X_7: 
Rem PRVLG 

CTRLJTO%30M*29«JNG_FLG = True 
G0T0 BOX_E 

BOX J: 
End Sub 

Rem *** PRCEND 
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Option Explicit 
Rem SDEFPUB 
Rem PUB4N4 

Private \*@X30O*31O*28O*29OS02@ As @323@ 
Rem PUBIN4 

Private ff0%3O5«_8X3IS§JX285O%295«_«X2OO§ As §*235@ 
Rem PUB5C4 

Private CTRL_W§X30MX28§«©X2M.STS_TRANSITIONJ y LG As Integer 
Rem PUB5Y4 

Private CTRL_V«X30M«28MX29«JTSJRANSITI0NJLGJ As Integer 
Rem PUB5B4 

Private CTRLJ§M0«JX28«.§X298_STSJRANSITI0NJLGJPP As Integer 
Rem PUB6F4 

Private CTttJffeX30«JX31^§X28MX29§JX02©JOT^VALIDJPLG As Boolean 
Rem SDEFEND 
Rem PUB4B4 

Private W0%3OOMX31O§_§X28O§_§X29OOX2OO§ As @X23@ 
Rem PUB4N3 

Private W3JX31§_8X28MX29§_§X02§ As Integer 
Rem PUB4N2 

' Private W2_§X31i_§X28§JX29§_0XO2e As @X23@ 
Rem ffDEFPRV 
Rem PRV2T4 

Private W@X30O*31O*28OX2983*02@__wk As @X23@ 
Rem PRV7R4 

Private CTRLJ8X30O*29@_ING_FLG As Boolean 
Rem *PUBKU 

Private CNSJJOT_KUH_String As String 

Private CNSJWTJOJHJnteger As Integer 

Private CNS_NOT_KUH_Boolean As Boolean 

Private CNSJJOTJCUH_Long As Long 

Private CNSJWTJttJILS ingle As Single 

Private CNSJWT_KUHJ)oubIe As Double 

Private CNSJWTJiUH_Variant As Variant 

Private CNS_NOTJCUH_Currency As Currency 

Private CNS_N0TJOJH_Byie As Byte 

Private CNSJIOTJOJHJate As Date 
Rem SPRV2K4 

%%\m 

Rem SPRV2E4 
Rem $PRV4W4 

mm 

Rem SPRY4E4 
Rem SDEFEND 
Public Sub MainO 

Rem fVECRBP Private Sub L4_@«31@ - .@3528@_@%29@_@5K02@_8%07@ 0 
B0X_1 : 
Rem PRYLG 

If W0X3OOX31§_W28§JX29MXO2i = CNSJ*0TJCUHJX23i And _ 
Rem PRVLG 

W3_«X310_§X28§_§X29§_«XO2« = @X07@ Then 
GoTo B03L2 
End If 
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ttm-^Z b)l<DM : 0 0 8-2 

mm/mt)/m&im/mm&/t%&m<DL 4 (ta^^o oso-2) 

GoTo B0X_E " : " 

BOX J: 
Rem PUB IN 

If W@X305O*3 i5O*285O*295O*200@ = CNS N0T__KUO*235@ Then Go To Box_3 
Rem PRYLG 

B0X_3 : 
Rem PRVLG 

If W@S30O*3 IO*28O*29O*02@_wk O CNS_NOTJ(UH_@*23© Then 

GoTo B0X_4 
End If 

GoTo BOX J 

B0X_4: 
Rem PRVLG 

W@*30O*31O*28O*29O*02@ = W@*30O*31@ @S28O*29O*02Ok 
Rem PRVLG 

CTRL_W@X30O^28O»29@_STS.TRANSITI0N_FLG = CTRL_W@X30O«28O^298_STS^TRANSlTI0NJLG 4 1 
GoTo BOX_E 

BOX J : 
Rem PRVLG 

1 f CTRLJ^30O^28O«29@^STS_TRANSITI0N_FLG^P 

= CTRLjm30O^28OX29@_STSJRANSITI0N_FLG_PP Then . 

GoTo B0X_6 
End If 

GoTo B0JL7 

B0X_6 : 
Rem PRVLG 

CTRLJ@X30O«31O*28@_@X29O^02O0TJ T ALID_FLG = True 
GoTo BOX_E 

B0XJ7: 
Rem PRVLG 

CTRLJ'@*30O*29@JNGJ ? LG = True 
GoTo BOJLE 

BOX_E : 
End Sub 
Rem *** PRCEND 
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Option Explicit 
Rem SDEFPUB 
Rem PUB4N3 

Private ff©*30O*3 10*280*290*020 (@5K26@. @%2W) As Integer 
Rem PUBIN3 

Private tt@*305O*3 150*2850*2950*2008 (@*265§. @*275@) As @S235@ 
Rem PUB5C3 

Private CTRLJ@*30O*28O*29OrSJMNSITI0NJ ? LG As Integer 
Rem PUB5Y3 

Private CTRL_W@*30O*28O*29@_STS_TRANSITI0N_FLG„P As Integer 
Rem PUB5B3 

Private CTRLJ*@*30O*28O*29@_STS.TRANSITI0N_FLG_PP As Integer 
Rem PUB6F3 

Private CTRLJ'@X30O*31O*28OX29O*02@_N0T_VALIDJLG{@»26@. @*27@) As Boolean 
Rem #DEFEND 
Rem #DEFPRV 
Rem PRV2T3 

Private W@*30O*31O*28O*29O*02Ok@*07@ (®%26@, @*27@) As Integer 
Rem PRV7R3 

Private CTRL_W@*30O*298_INGJPLG As Boolean 
Rem PUBKU 

Private CNSJJOTJOJIUnteger As Integer 
Private Gyou as Integer 
Private Retu as Integer 
Private UtLCnl as Integer 
Private Soto_Cnt as Integer 
Private UtiJIax as Integer 
Private Sotojiax as Integer 
Rem $PRV2W3 

mm 

Rem $PRV2E3 
Rem $PRY4W3 
@*165@ 
Rem SPRV4E3 
Rem #DEFEND 
Public Sub MainO 

Rem #VECREP Private Sub L3_@*3 10*280*290*02® 0 

Gyou = 0 

Retu = 0 
Rem PRVLG 

If @*340 < @*35@ then 
Rem PRVLG 

UtLMax = @%26@ 

Rem PRVLG 

Sotojiax = @*278 

End If 
Rem PRVLG 

If @*34@ > @X353 then 
Rem PRVLG 

UtLMax = @*27G 

Rem PRVLG 

Sotojiax = ®%2W 
End If 
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jEM/ttii3/&mft/mm^/tfiRm0 l 3 0090-2) 



UtLCnt = 0 ~ 
Soto^Cnt = 0 
Do Until Sotojlnl = SotoJIax + l 
Uti_Cnl = 0 
Rem PRYLG 

If @*34@ < @S35@ then 
Gyou = Uti^Cnt 
Retu = Soto.Cnt 
End If 
Rem PRYLG 

If @S34@ > @S35@ then 
Gyou = Soto_Cnt 
Retu = UtLCnt 
End If 

Do Until UtLCnt = Utijlax * 1 

BMLI: 
Rem PRYLG 

If W©S30O*3 l«.0X28tjlX29§.iXO2i (Gyou, Retu) = CNSJJOTJOJHJnteger Then 

GoTo B0X_2 
End If 

GoTo B0X_E 

BOO: 
Rem PRYLG 



B03L3: 
Rem PUBL3F 

If ft'eX30OX3IMX28OX29§„§«02e_wke5B07e (Gyou. Retu) = 1 Then GoTo B0X_4 
GoTo B05L5 

B0X_4 : 
Rem PUBL3F 

If W@U0OS31O*28O*29O*02Ok@*07© (Gyou, Retu) = 1 
Then W@*30O*3 1 0*280*2 9O*02@ (Gyou, Retu) = @S07@ 
Rem PRVLG 

CTRL_W«X30MX28i.«X29§_STSJRANSITI0NJ ? LG = CTRL - ff«8530§_®X28©_§X29@_STS TRANSITION FLG + 1 
GoTo BOXJB 

B0X_5: 
Rem PRVLG 

I f CTRL„ff@»30O»28O»29@^STS - TRANSITI0N_FLG„P 

= CTRLJ«X30i_W28«_W29«_STS^TRANSITI0NJLGJP Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

B0X_6 : 
Rem PRYLG 

CTRL_W@«30OX31O*28O5529O«02@_N0TJ , ALID_FLG (Gyou, Retu) = True 
GoTo B0X_E 

B0X.7 : 

Rem PRVLG 

CTRL_W@S30O*29®jNG_FLG = True 

GoTo B0X_E 

BOXJi: 

UtLCnt = UtLCnt + i 
Rem PRVLG 
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hJKDM : 0 0 9-3 

jE^/ai tj/m^mxma^ym^mo l 3 0090-3) 



If @*34© < @S35@ then 
Gyou = UtLCnt 
Retu = Soto_Cnt 

End If 



Rem PRVLG 



If ®%m > %%m then 
Gyou = Soto.Cnt 
Retu = UtLCnt 
End If 

Loop 

Soto_Cnt = Soto_Cnl + 1 
Rem PRVLG 

If @%34@ < @*35@ then 
Gyou = UtLCnt 
Retu = Soto_Cnt 
End If 
Rem PRVLG 

If @*34@ > @*35@ then 
Gyou = Soto_Cnt 
Retu = UtLCnt 
End If 
Loop 

Gyou = 0 
Retu = 0 
UtLCnt = 0 
Soto_Cnt = 0 
UtiJIax = 0 
Sotojiax = 0 
End Sub 

Rem *** PRCEND 



mm&2 004-3099195 



#M 2003-331373 



^—y: 118/ 



# [012 0] 

h)U(DM : 0 1 0 - 1 

jjE&/Bi]/Rmti/t&m&/mftm<n'L a (ggggo ioq-d 

Option Explicit " 
Rem #DEFPUB 
Rem PUB4N4 

Private W%30O*3l§^28OX29OSU02©(®X26§ t §*27S) As 9X230 
Rem PUB1N4 

Private ViX305OX315O«285OX295§_§SIS200§(©X265@. 6X275©) As 6X2356 
Rem PUB5C4 

Private CTRLJ«%30©«iX288_8X29®JTSJRANSITlONJLG As Integer 
Rem PUB5Y4 

Private CTRL.W©X30OX28MX29iJTSJRANSlTI0NJ ? LGJ As Integer 
Rem PUB5B4 

Private CTRL„ff@X30i_§X28@_@9S298_STS„TRANSlTI0N FLG PP As Integer 
Rem PUB6F4 

Private CTRLJ«30MX3l«JX28«^W29§.©X02§JIOTJ , ALIDJ ? LG (@%26@. 6X276) As Boolean 
Rem #DEFEND 

Rem PUB4B4 

Private ffeX300OX310e_6X2808_§X2906_@X2009 (6X266. 6X276) As 6X236 
Rem PUB4N3 

Private W3_6X3 1 6_6X286_6X29@_@X02@ (6X266, 6X276) As Integer 
Rem PUB4N2 

' Private W2_6X31@_6X289._®X29i_eX026 (6X269. 6X276) As 6X236 
Rem #DEFPRV 

Rem PRV2T4 

Private W6X306_6X316^X286_6X296_6X02@jyk (6X266, 6X276) As 6X236 
Rem PRV7R4 

Private cmjT9X309_6X299_INGJLG As Boolean 
Rem *PUBKU 

Private CNSJWTJOJILStnng As String 

Private CNS_NOT_KUHJnteger As Integer 

Private CNSJfOTJCUILBooIean As Boolean 

Private CNSJJOTJOJHJLong As Long 

Private CNSJfOTJOJH_S ingle As Single 

Private CNS_NOT_KUH_Double As Double 

Private CNS_NOT_KUH_Variant As Variant 

Private CNSJIOTJCOILCurrency As Currency 

Private CNSJiOTJOJHJByte As Byte 

Private CNSJ*0TJOJH_Date As Date 

Private Gyou as Integer 

Private Retu as Integer 

Private Utijnt as Integer 

Private Soto__Cnl as Integer 

Private UtiJIax as Integer 

Private Sotojfax as Integer 
Rem $PRV2W4 
6X1726 
Rem $PRV2E4 
Rem SPRV4W4 
9X1826 
Rem SPRV4E4 
Rem #DEFEND 

Public Sub MainO 

Rem #VECREP Private Sub L4_@X316_6X286_6X296_JX026_6X076 0 
Gyou = 0 
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Retu = 0 
Rem PRYLG 

If @%34@ < %%m then 
Rem PRVLG 

UtiJIax = @%26@ 

Rem PRYLG 

Solojlax = @S27@ 

End I f 
Rem PRVLG 

If @%34@ > %%m then 
Rem PRVLG 

UtiJIax = 8X278 

Rem PRVLG 

sotojiax = mm 

End If 
UlLCnt = 0 
Solo_Cnt = 0 
Do Until Soto_Cnt = Sotojlax + 1 
UtLCnt = 0 
Rem PRVLG 

If @5K34@ < mm then 
Gyou = UtLCnt 
Relu = Soto_Cnt 
End If 
Rem PRVLG 

If mm > @%35@ then 
Gyou = Soto_Cnt 
Retu = UtLCnt 
End If 

Do Until UtLCnt = UtLMax i 1 
B0X_1 : 
Rem PRVLG 

If W@a530O»31OX28@_@X29@_@SK02@ (Gyou, Retu) = CNSJWTJUIH_@S23@ And _ 
Rem PRVLG 

W3_®*3l@_@mo*29O*02@ (Gyou, Retu) = 8S07@ Then 
GoTo B0JL2 
End If 

GoTo BOXJ 

B0X_2: 
Rem PUB IN 

If W@S305O*3 150^50*2950*200® (Gyou, Retu) = CNS_NOTJOJOK2350 Then Go To Box J 
Rem PRVLG 
17® 

B0X_3: 
Rem PRVLG 

If W@S30O*31O*28O*29O*02Ok (Gyou, Retu) O CNS_N0TJ(UiL@*23@ Then 

GoTo B0X_4 
End If 

GoTo B0X_5 

B0X_4: 
Rem PRVLG 

W@S30O*3 10*280*290*02© (Gyou. Retu) = W8*30O*31O*28O*29O*02Ok (Gyou, Retu) 
Rem PRVLG 
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CTRLJ'9X30O»28O3S , 29@_STS_TRANSIT]0N_FLG = CTRL_W@X30@ - @X28§„@9529§JTS_TRANSIT10NJLG + 1 
GoTo BOO 

B0X_5 : 
Rem PRVLG 

1 f CTRL_ff@8530O»28O^29@_STS_TRANSITI0N - .FLG_P 
= CTRL_WW30OX28MX298JTSJRANSITI0N_FLG_PP Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

B0X_6 : 
Rem PRVLG 

CTRL3@«300»310^280^29@_@X0200TJ r ALID_FLG(Gyou, Retu) = True 
GoTo BOX_E 

B0JL7 : 
Rem PRVLG 

CTRLJ^30O»29@_lNG^FLG = True 
GoTo BOXJ 

BOX.E: 

UtLCnt = UlLCnt + 1 

Rem PRVLG 

I f @*34@ < @S358 then 

Gyou = UtLCnt 

Retu = Soto_Cnt 
End If 

Rem PRVLG 

If @S34@ > @fc35@ then 

Gyou = Soto_Cnt 

Retu = UtLCnt 
End If 

Loop 

Soto_Cnt = Soto_Cnt + 1 
Rem PRVLG 

If @*34@ < @S35@ then 
Gyou = UlLCnt 
Retu = Soto_Cnt 
End If 
Rem PRVLG 

If @*34@ > @S35§ then 
Gyou = Soto_Cnt 
Retu = UtLCnt 
End If 
Loop 

Gyou = 0 
Retu = 0 

UtLCnt = 0 
Soto_Cnt = 0 
UtLMax = 0 
SotoJIax = 0 
End Sub 

Rem *** PRCEND 
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Option Explicit 

Rem #DEFPUB 

Rem PUB4N3 

Private W@*30O*3IO*28O*29O*02@ As Integer 
Rem PUBIN3 

Private W@*305O*3 150*2850*2950*2006 As @*235@ 
Rem PUB5C3 

Private CTRLJ«X30ejX28§^8JIS29«_STS.TRANSITI0NJLG As Integer 
Rem PUB5Y3 

Private CTRljr«30§ i «28§.«29i.STSJIUWSITI0HJLGJ As Integer 
Rem PUB5B3 

Private CTRL_W@X306.§%28M*29e_STS^TRANSITI0NJ 7 LGJP As Integer 
Rem PUB6F3 

Private CTRLJ§X30O*3 10*280*290*02§_NOT VALID FLG As Boolean 
Rem 8DEFEND 
Rem SDEFPRV 
Rem PRV2T3 

Private ff@* 300*310*280* 2 9O*02@_wk As Integer 
Rem PRV7R3 

Private CTRL_W@*30O*29GJNG_FLG As Boolean 
Rem PUBKU 

Private CNS.NOT_KUHJnteger As Integer 
Rem SPRV2W3 
0*162® 
Rem IPRV2E3 
Rem $PRV4W3 
@*165@ 
Rem SPRV4E3 
Rem #DEFEND 

Public Sub MainO 

Rem #VECREP Private Sub L3_@*310*28@ @*29O*02@0 
B0X_1 : 
Rem PRVLG 

If W@*30O*31O*28O*29O*02@ = CNS_NOT_KUHJnteger Then 

GoTo B0X_2 
End If 

GoTo BOO 

BOO: 
Rem PRVLG 
8*169 

B0X_3: 
Rem PRVLG 

If ff@*30O*31O*28O*29O*02Ok O CNSJWTJOJHJnteger Then 
GoTo B0X_4 

End If 

GoTo B0X_5 

B0X_4: 
Rem PRVLG 

ff@*30O*31O*28O*29O*02@ = W@*30O*31O*28O*29O*02@_wk 
Rem PRVLG 

CTRL3@*30O*28O*29OTS_TRANSITI0NJLG = CTRL_ff@*30O*28O*29OTSJ-RANSITI0N_FLG + 1 
GoTo B0X_E 

B0X_5 : 
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Rem PRYLG 

I f CTRL_ff§«30O^28O«29@ JTS^TRANSITIONJLCP 
= CTRL_W«X30O«28§„§«29@ - STSJRANSITI0N - FLG - PP Then 

G0T0 BOXJ 
End If 

G0T0 BOXJ 

B0X_6 : 
Rem PRVLG 

CTRLJ§X30Ma531O3S28@_§X29§.@Xfl2§_N0TJALlDJLG = True 
G0T0 BOXJ 

BOXJ: 
Rem PRVLG 

CTRL_W@X30§„©X29® - ING_FLG = True 
G0T0 BOXJ 

BOXJ: 
End Sub 

Rem *** PRCEND 
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Option Expl ici t 
Rem #DEFPUB 
Rem PUB4N4 

Private W®X30@_@X31@_@X28OX29OX02@ As @X23@ 
Rem PUBIN4 

Private W@X305@_@X315@_@X285@_@X295@_@X200@ As @%23B@ 
Rem PUB5C4 

Private CTRL3^30O«28O«29@_STS - TRANSITl0N_FLG As Integer 
Rem PUB5Y4 

Private CTRL_W@%30O»28O»29@_STS_TRANSITI0NJLGJ As Integer 
Rem PUB5B4 

Private CTRL3@X30O»28O5K29@_STS_TRANSIT10NJLG_PP As Integer 
Rem PUB6F4 

Private CTRLjm30O^31@_@X28O«29@_@*02O0T_VALIDJLG As Boolean 
Rem 3DEFEND 
Rem PUB4B4 

Private ff@X300@_@X3 100X2800*2900*200® ^s 8X23® 
Rem PUB4N3 

Private W3_@X3 1@_@X28@_@X29@_@X02@ As Integer 
Rem PUB4N2 

' Private W2_JX31OX28@_®X298_@X02@ As @X23@ 
Rem SDEFPRV 
Rem PRV2T4 

Private ff@X30OX31OX28OX29OX02@_wk As ®X23@ 
Rem PRV7R4 

Private CTRL_W@X30®_@X29@JNGJ ? LG As Boolean 
Rem *PUBKU 

Private CNSJWTJUJILString As String 

Private CNSJWTJUIHJnteger As Integer 

Private CNS_NOTJOJH_Boolean As Boolean 

Private CNS_NOT_KUH_Long As Long 

Private CNS_NOTJtt)H_S ingle As Single 

Private CNS_NOTJ(UHJ)oubIe As Double 

Private CNSJiOTJttilLVariant As Variant 

Private CNSJ*OTJUJH_Currency As Currency 

Private CNSJiOTJOJOyte As Byte 

Private CNSJK)T_KUHJ)ate As Date 
Rem $PRV2W4 
@X172@ 
Rem SPRV2E4 
Rem $PRV4V4 

mm 

Rem $PRV4E4 
Rem ^DEFEND 
Public Sub MainO 

Rem #VECREP Private Sub L4_@X31®_®X28@_@X29®_@X02@_@X07® 0 
BOX J: 
Rem PRVLG 

If W@X30@_JX31@_@X28®_@X29@.JXQ2@ = CNS_NOTJOJH_®X23® And _ 
Rem PRVLG 

W3_®X31OX28OX29®_@X02@ = @X07@ Then 
GoTo BOXJ 
End If 
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G0T0 B0X_E 

B03L2: 
Rem PUB IN 

If %@*305O*3 150*2850*2950*2000 = CNS_NOTJOJO*235@ Then Go To Box_3 
Rem PRVLG 

@*17@ 
B0X.3: 
Rem PRVLG 

If W@*30O*3tO*28O*29O*02Ok O CNS_NOT JCUHJHS2 30 Then 

GoTo B0X_4 
End If 

GoTo BOXJ 

BOXJ : 
Rem PRVLG 

W@X30O*31O*28O*29O*02@ = W 3 00*310*280* 2 90*0 20k 
Rem PRVLG 

W@3S300O*3 10O*280O*290O*200@ = W@*30O*3 10*280*290*02® 
Rem PRVLG 

CTRLJ*@*30O*28O*29@_STS_TRANSITI0N_FLG = CTRL3«*30O*28O*29OTS^TRANSITI0N_FLG + 1 
GoTo BOX_E 

B0X_5 : 
Rem PRVLG 

I f CTRLJ@*30O*28O*29OTS_TRANSITI0N_FLG_P 
= CTRLJ@*30O*28O*29OTS^TRANSITI0N - FLGJP Then 

GoTo BOXJ 
End If 

GoTo B0X_7 

B0X_6 : 
Rem PRVLG 

CTRLJ@X30O*31O*28O*29O*02@_N0T_VALID_FLG = True 
GoTo BOX_E 

B0X_7 : 
Rem PRVLG 

CTRL_ff@«30O*29@.ING - FLG = True 
GoTo BOO 

BOX_E: 
End Sub 

Rem *** PRCEND 
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Opt ion Expl ici t " 
Rem #DEFPUB 
Rem PUB4N3 

Private W§X30MX316_§X286_W296_§X026 As Integer 
Rem PUBIN3 

Private W@X3056_@X3I56_6X285@_6X295@_@X200@ As 6X2356 
Rem PUB5C3 

Private CTRL36X30@_6X286_6X296_STSjrRANSmON_FLG As Integer 
Rem PUB5Y3 

Private CTRL_W§X30§_«28iJ%29§JTS_TRANSITIONJLG.P As Integer 
Rem PUB5B3 

Private CTRL - W©X30«JX28MJ529»JTSJRANSITIONJ ? LGJ > P As Integer 
Rem PUB6F3 

Private CTRL_W@X30@_@%31O9528@_@%29O»02@_N0TJ r ALIDJLG As Boolean 
Rem SDEFEND 
Rem #DEFPRV 
Rem PRV2T3 

Private W6X306_6X316_6X286_6X296_@X026_wk6X07@ As Integer 
Rem PRV7R3 

Private CTRL_W6X306_6X296JNG_FLG As Boolean 
Rem PUBKU 

Private CNSJWTJOJIUnteger As Integer 
Rem SPRV2W3 

6x1 626 

Rem $PRV2E3 
Rem SPRV4W3 
9X1656 
Rem SPRV4E3 
Rem #DEFEND 
Public Sub Main 0 

Rem #VECREP Private Sub L3_6X316_6X286_6X296_6X026 0 
BOXJ : 
Rem PRVLG 

If W§X30iJX31«JX28«JX29§_§X026 = CNSJWTJKUHJnteger Then 

GoTo B0X_2 
End If 

GoTo BOX J 

B0X_2 : 
Rem PRVLG 
6X169 

B0X_3 : 
Rem PUBL3F 

If W6X306_6X316_6X28e_8X296_6XQ2e_wkeX076 = 1 Then GoTo B0X_4 
GoTo BOXJ 

B0X_4 : 
Rem PUBL3F 

If ff6X30@„@X316_6X28@_6X296_6X02@_wk6X076 = I Then W6X306_JX316_6X286_6X296_6X02© = 6X076 
Rem PRVLG 

CTRL_W@X30@^@X2863X296^STS_TRANSITI0N_FLG = CTRL_W6X306„6X286 - 6X296_STSJRANSITION - FLG + 1 
GoTo BOO 

B0X_5 : 
Rem PRVLG 

I f CTRLjr6X30@_@X286J3X29@J)TS_TRANSITION_FLGJ > 
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= CTRLW§9530§JX28§_e»29e_STS_TRANSIT10N_FLGJP Then 

G0T0 B0X_6 
End If 

G0T0 B0X.J 

BOX J: 
Rem PRVLG 

CTRLJ@^30@__@^31O^28@_@»29@_§»02O0T_VALID_FLG = True 
G0T0 B0X.E 

B0XJ7 : 
Rem PRVLG 

CTRLJ@%30O«296_ING.FLG = True 
G0T0 BOX_E 

BOX_E: 
End Sub 

Rem m PRCEND 
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Option Explicit — " 

Rem #DEFPUB 
Rem PUB4N4 

Private W@X30O*31O*28O*29@ @S02@ As @*23@ 
Rem PUBIN4 

Private W@*305O*3 1 50^50*2950*2008 As @X235@ 
Rem PUB5C4 

Private CTRL„W@X30OX28O%29OTS_TRANSITI0NJLG As Integer 
Rem PUB5Y4 

Private CTRL„W@%30O«28O«29@_STS_TRANSITI0N_PLG_P As Integer 
Rem PUB5B4 

Private CTRL - W@«30@^28O^29^STS_TRANSITI0N_FLGJP As Integer 
Rem PUB6F4 

Private CTRL3^30O^31O%28O«29@_^02O0TJ'ALIDJLG As Boolean 
Rem SDEFEND 

Rem PUB4B4 

Private W@*300O$31QO%280O*290O%200@ As 0*230 
Rem PUB4N3 

Private W3^*31O*28O*29OX02@ As Integer 
Rem PUB4N2 

' Private W2_@*31O*28OX29O*028 As @%23@ 
Rem #DEFPRV 

Rem PRV2T4 

Private W@*30OK31O*28O*29O*02Ok As @*23@ 
Rem PRV7R4 

Private CTRL3@»30O«296JNGJLG As Boolean 
Rem *PUBKU 

Private CNSJOTJttllLString As String 
Private CNSJIOTJttJHJnteger As Integer 
Private CNSJWJOJJLBoolean As Boolean 
Private CNSJWTJQJILLong As Long 
Private CNSJWTJtfJILS ingle As Single 
Private CNS_NOTJCUOouble As Double 
Private CNS_NOT_KUH_Variant As Variant 
Private CNSJTOTJOJILCurrency As Currency 
Private CNSJWTJttJHJByte As Byte 
Private CNSJWTJOJHJJate As Date 
Rem $PRV2W4 

mm 

Rem $PRY2E4 
Rem $PRV4ff4 
@%I82@ 
Rem $PRV4E4 
Rem 5DEFEND 
Public Sub Main 0 

Rem #VECREP Private Sub L4_©*3 10*280*290*020*070 0 
BOXJ : 
Rem PRVLG 

If W0*3O0_@*3I0_J*28@_@*29@_0*O20 = CNSJWT_KUIL@*23@ And 
Rem PRVLG 

W3_@*3 1@_@*280_8*29@_@3O2@ = §*O70 Then 
GoTo B0X_2 
End If 
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GoTo B0X_E 

B0X_2: 
Rem PUBIN 

If W@£305O*3 150*2850*2950*200© = CNSJ0T_KUH^2356 Then Go To Box J 
Rem PRVLG 

B0X_3 : 
Rem PRVLG 

If W@JU0O*31O*28O*29O*02@_wk O CNSJOTJOJO*23G Then 

GoTo B0X_4 
End If 

GoTo B0X_5 

B0X_4: 
Rem PRVLG 

W@%30O*3 10*280*290*02© = W©S£30O*31O*28O*29O*02@_wk 
Rem PRVLG 

* 

ff@*300O*310O*280O*290O*200@ = W@S30O*3 10*280*290*020 
Rem PRVLG 

CTRL_W@»30@^28@_@%29@_STS^TRANSITION_FLG = CTRLJ'@*30O*28O*29OTSJMNSm0NJFLG + I 
GoTo B0X_E 

B0X_5 : 
Rem PRVLG 

If CTRL_W@«30O^28O»29@^STS_TRANSITI0NJLG_P 
= CTRLJM30O*28O*29OTSJMNSIT10NJLGJPP Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

B0X_6 : 
Rem PRVLG 

CTRL3@«30O*3]O^28O9529O»02@_N0T_VALID_FLG = True 
GoTo B0X_E 

B0X_7 : 
Rem PRVLG 

CTRLjr@*30O*29@JNG_FLG = True 
GoTo B0X_E 

BOX J: 
End Sub 
Rem *** PRCEND 
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Option Explicit 
Rem #DEFPUB 
Rem PUB4N3 

Private W©X30O*31O*28OX29O*02® (8X26©. ©X27« As Integer 
Rem PUBIN3 

Private WGX305OX3 I5©_©X285©_@X2956_©X200© (©X265@. ©95275®) As ©X235© 
Rem PUB5C3 

Private CTRLJT«X30O*28OX29OTS_TRANSITI0NJLG As Integer 
Rem PUB5Y3 

Private CTRL_ff©X30§_©X28@ - ®X29@_STS_TRANSITI0NJLGJ > As Integer 
Rem PUB5B3 

Private CTRL.W©X30©_«X28OX29OTS_TRANSITI0NJLG_PP As Integer 
Rem PUB6F3 

Private CTRL_W®SS30O*31OX28OX29OX02O0T.VALIDJfLG»X26«, ©X27©) As Boolean 
Rem ^DEFEND 
Rem 3DEFPRV 
Rem PRV2T3 

Private ftX30OX31OX28t.m29OX02Ok(§X26ftfX27t) As Integer 
Rem PRV7R3 

Private CTRLjr§X30OX29®_INGJLG As Boolean 
Rem PUBKU 

Private CNSJ*OTJ(UH_Integer As Integer 

Private Gyou as Integer 

Private Retu as Integer 

Private Uti_Cnt as Integer 

Private Sotojnt as Integer 

Private UtiJIax as Integer 

Private Soto_Max as Integer 
Rem SPRV2W3 
@X162@ 
Rem SPRY2E3 
Rem $PRV4f 3 
©X165© 
Rem SPRV4E3 
Rem #DEFEND 

Public Sub Main 0 

Rem SVECREP Private Sub L3_«X31OX28©_«%29©_eX02©0 

Gyou = 0 

Retu = 0 
Rem PRVLG 

If @X34© < @X35@ then 
Rem PRVLG 

utijiax = mm 

Rem PRVLG 

SotoJIax = @%27© 

End If 
Rem PRVLG 

If @X34@ > ©X35© then 
Rem PRVLG 

UtiJIax = @X27@ 

Rem PRVLG 

SotoJIax = ©X268 
End If 
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UtLCnt = 0 ' " 

Soto_Cnl = 0 
Do Until Soto_Cnt = SotoJIax + 1 
UtLCnl = 0 
Rem PRVLG 

If mm < ®%m then 
Gyou = UtLCnt 
Retu = Soto_Cnt 
End If 
Rem PRVLG 

If @*34@ > 0*350 then 
Gyou = Sotojnl 
Retu = UtLCnt 
End If 

Do Until UtLCnt = UliJIax + 1 

B03L1 : 
Rem PRVLG 

If W§X30«_§X31«.§X28§JX29§_eX02«(Gyou l Relu) = CNS _N0T KUHJnteger Then 

GoTo B0X_2 
End If 

GoTo B0X_E 

B0JL2: 
Rem PRVLG 

mm 

BOX J : 
Rem PRVLG 

If ff«X30§^§X31i_W28MX29«^X02§j»k (Gyou. Retu) O CNS_N0TJ0JH_Integer Then 

GoTo B0X_4 
End If 

GoTo B0X_5 

B0X_4: 
Rem PRVLG 

W%m_m li_§X280_0X29t_§XO2# (Gyou, Re tu) = W@*30@_@*3 1§_§*280*29@_@K02@ wk (Gyou. Re tu) 
Rem PRVLG 

CTRLTOX30§JX28MX29§_STS_TRANSmONJPLG = CTRL_W§!K30MSIS289 §X29§ STSJRANSITION FLG t 1 
GoTo BOX J 

B0X_5: 
Rem PRVLG 

I f CTRL^ff@3S30OX28@_@X29@_STS.TRANSITI0NJLG.P 

= CTRL_W§X30§.«%28§JX29i_STSJRANSITI0NJLGJP Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

B03L6: 
Rem PRVLG 

CTRL_W@X30O«31OX28OX29@_@»02@_N0LVALIDJLG (Gyou. Retu) = True 
GoTo BOXJE 

B0X_7: 
Rem PRVLG 

CTRLJi!IE30MX29i^INGJLG - True 
GoTo BOXJ 

BOX J: 

UtLCnt = UtLCnt + I 
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Rem PRVLG 

If @*34@ < 8S35@ then 
Gyou = UtLCnt 
Retu = Soto^Cnt 

End If 

Rem PRVLG 

If @S34@ > then 
Gyou = Soto_Cnl 
Retu = UtLCnt 

End if 

Loop 

Solo_Cnt = Soto_Cnt I I 
Rem PRVLG 

If @*34@ < @%35@ then 
Gyou = UtLCnt 
Retu = Sotojnt 
End If 
Rem PRVLG 

If 0*34@ > @%35@ then 
Gyou = Soto_Cnt 
Retu = UtLCnt 
End If 
Loop 

Gyou = 0 
Retu = 0 
UtLCnt = 0 
Soto_Cnt = 0 
Utijlax = 0 
Solo_Max = 0 
End Sub 

Rem *** PRCEND 
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ttm-£^2 b&OM : 0 1 6 - l 

(Option Explicit 
Rem #DEFPUB 
|Rem PUB4N4 

Private W@*30M*31O%28O*29O*02@ (@*26@. @S27@) As @S23@ 
|Rem PUBIN4 

Private ff@X305@^315O»285O^295@^200@ (@%265@. §S275@) As @*235@ 
| Rem PUB5C4 

Private CTRL_ff0353OOS528O^29@_STS^TRANSIT[ONJLG As Integer 
|Rem PUB5Y4 

Private CTRL_ff^30OX28@^29@JTS_TRANSITI0N_FLG_P As Integer 
|Rem PUB5B4 

Private CTRLJ'@%30O«28O«29^STS_TRANSITI0NJLG_PP As Integer 
|Rem PUB6F4 

Private CTRLJV^30O5531O«28O3529OX02O0T^VALID^FLG mm, @S27@) As Boolean 
Rem #DEFEND 

|Rem PUB4B4 

Private W@»300@^3I0O*280@^290O«2008(@»26@, @*27@) As @S23@ 
|Rem PUB4N3 

Private W3_@*310mo*29@_@*02@ (@* 2 6@, %%!!%) As Integer 
|Rem PUB4N2 

Private W2_@U 10^0*290*02© (@*26@, %%im As @S23@ 
(Rem #DEFPRV 

kern PRV2T4 

Private W@S30O*31omoX29O*02@_wk (@S26@, @%27@) As @*23§ 
|Rem PRV7R4 

Private CTRLJ^30O*29@^ING^FLG As Boolean 
|Rem *PUBKU 

Private CNSJJOTJOJILString As String 
Private CNSJWOUH_Integer As Integer 
Private CNSJWTJOJH_Boolean As Boolean 
Private CNS_N0TJO)ILLong As Long 
Private CNS_NOT_KUILS ingle As Single 
Private CNSJWJttlHJtouble As Double 
Private CNSJOT_KUH_Va riant As Variant 
Private CNSJWTJOJILCurrency As Currency 
Private CNS_NOT_KUHJiyte As Byte 
Private CNSJWTJCUHJ)ate As Date 
Private Gyou as Integer 
Private Retu as Integer 
Private Uti_Cnt as Integer 
Private Sotojtot as Integer 
Private Utijiax as Integer 
Private SotoJIax as Integer 
[Rem $PRV2W4 

Rem IPRV2E4 
Rem IPRV4W4 
8X1 82§ 
Rem SPRV4E4 
|Rem #DEFEND 
Public Sub MainO 

|Rem #VECREP Private Sub L4_^lO*28O*29O*02@ 0 
Gyou = 0 
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[013 5] 

' Retu = 0 " ' 

Rem PRVLG 

If @S34@ < mm I hen 
Rem PRVLG 

Utijlax = mim 

Rem PRVLG 

SoloJIax = 8X27i 

End If 
Rem PRVLG 

If @%34@ > mm then 
Rem PRVLG 

UtiJIax = @*27@ 

Rem PRVLG 

Sotojiax = mm 

End If 
Uti.Cnt = 0 
Soto_Cnt = 0 
Do Until Soto_Cnt = Sotojiax + 1 
UtLCnt = 0 
Rem PRVLG 

If @X34@ < mm then 
Gyou = Uti_Cnt 
Retu = Soto_Cnt 
End If 
Rem PRVLG 

if mm > mm then 

Gyou = Soto_Cnt 
Retu = UtLCnt 
End If 

Do Until UlLCnt = UtiJIax * 1 
BOX J : 
Rem PRVLG 

If WflX30§.«31MX28§_«K29ejX02§(Gyou.Relu) * CNS_NOT_KUO%23@ And _ 
Rem PRVLG 

W3_i*31§_fX288_§X29MX02t (Gyou, Retu) = @*07@ Then 
GoTo B0X_2 
End If 

GoTo BOX J 

B03L2: 
Rem PUB IN 

If Vi*305MX315#_W285§_iX295i.«K200« (Gyou, Retu) = CNS_NOTJCUL§X235e Then Go To Box_3 
Rem PRVLG 

mm 

BOX J : 
Rem PRVLG 

If Wm0M*31O*28OM9O*02@wk (Gyou, Retu) O CNSJ*OTJOJO»230 Then 

GoTo B0X.4 
End If 

GoTo B0X_5 

B0X_4: 
Rem PRVLG 

m3Q§J*31§_§X28MM9«_0XO2§ (Gyou, Retu) = W§X30«_«3I§_©%28i_W29§_W02i_wk (Gyou. Retu) 
Rem PRVLG 
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jE^/M^/lB^l^f/gffijBl/^ffWcOL 4 (gJl#^ Q160-3) 

W@X300@J*31 00*2800*290® J*200@ (Gyou, Retu) = W§X308JX31§_§S828MX29§_«X02§ (Gyou. Relu) 
Rem PRVLG 

CTRLJW30OX28M5529i_STS_TRANSlTI0NJLG = CTRL_W§X30@_@X28O3S29© - STS - .TRANSITI0N.FLG + I 
GoTo BOXJ 

BOXJ : 
Rem PRVLG 

1 f CTRL J§SB30MX28e_§X29©_STS .TRANSITION JLGJP 
= CTRLJ"«30©JX28§J%29i„STS - TRANSITI0NJ'LGJ , P Then 

GoTo BOXJ 
End If 

GoTo B0X_7 

BOXJ : 
Rem PRVLG 

CTRLJ^30O»3IO»28O»29@_@»02@_N0T.VALID_FLG (Gyou. Retu) = True 
GoTo BOXJ 

BOXJ? : 
Rem PRVLG 

CTRL_W«X30§JX29§JNGJLG = True 
GoTo BOXJ 

BOXJ: 

Utijnt = Utijnt + 1 

Rem PRVLG 

If @*34@ < @*35@ then 

Gyou = Utijnt 

Retu = Sotojnt 
End If 

Rem PRVLG 

I f @%34@ > ®%m then 

Gyou = Sotojnt 

Retu = Utijnt 
End If 

Loop 

Sotojnt = Sotojnt + 1 
Rem PRVLG 

If @%34@ < @%35@ then 
Gyou = Ulijnt 
Retu = Sotojnt 
End If 
Rem PRVLG 

If @%34® > 0*35® then 
Gyou = Sotojnt 
Retu = Utijnt 
End If 
! Loop 
Gyou = 0 
Retu = 0 
Utijnt = 0 
Sotojnt = 0 
Utijlax = 0 
Sotojfax = 0 
End Sub 
Rem *** PRCEND 
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iE«/ffl^/IB^Jft/^fflS^r/ieff>Wg)L 3 (ggggO 17 0-1) _ 

Option Explicit 
Rem #DEFPUB 
Rem PUB4N3 

Private WeX30§__8X31§JX288_eX29e..@X02e (8X268. 8X278) As Integer 
Rem PDBIN3 

Private W8X305®_8X3158_8X2858_8X2958_GX2008 (8X2658,8X2758) As 8X2358 
Rem PUB5C3 

Private CTRLJf«SI530MX28i_§X29«JTS_TRANSIT10NJLG As Integer 
Rem PUB5Y3 

Private CTRLJiX30l_§X28« M §X29ejTS_TRANSITIONJLG_P As Integer 
Rem PUB5B3 

Private CTRLjeX30«JX28MX298_STS«TRANSITIONJLGJ > P As Integer 
Rem PUB6F3 

Private CTRLJ@%30O»31@_@%28OX29M*02O0OALIDJLG (6^268. @X27§) As Boolean 
Rem #DEFEND 
Rem #DEFPRV 
Rem PRV2T3 

Private ff@X308_8X3 18_8X288_8X29e_eX028_wk8X078 (8X268. 8X278) As Integer 
Rem PRV7R3 

Private CTRLJT«X30OX29«JNG_FLG As Boolean 
Rem PUBKU 

Private CNSJWTJKUHJnteger As Integer 

Private Gyou as Integer 

Private Retu as Integer 

Private lHi_Cnt as Integer 

Private Soto_Cnt as Integer 

Private Utijlax as Integer 

Private SotoJIax as Integer 
Rem SPRV2W3 
8X1628 
Rem $PRV2E3 
Rem $PRY4W3 
6X1658 
Rem SPRY4E3 
Rem #DEFEND 

Public Sub MainO 
Rem 3VECREP Private Sub L3_8X318_8X288_8X298_8X02® 0 
Gyou = 0 
Retu = 0 
Rem PRVLG 

If @X34@ < 8X358 then 
Rem PRVLG 

Utijiax = 8X268 

Rem PRVLG 

Soto_Max = 8X278 

End If 
Rem PRVLG 

If 8X348 > 8X358 then 
Rem PRVLG 

UtiJIax = 8X278 

Rem PRVLG 

SotoJIax = 8X268 
End If 
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: 0 1 7 - 2 

iEjaXa^/iSym/^flfi^ifi^^OL 3 (1gJ%j&^0 17 0-2) 

UILCdI * 0 
Soto_Cnt = 0 
Do Until Soto_Cnt = SoloJIax + 1 
UlLCni = 0 
Rem PRVLG 

If 6X348 < 6X3S6 then 
Gyou = Uti.Cnt 
Retu = Soto_Cnl 
End If 
Rem PRVLG 

If 6X349 > 6X356 then 
Gyou = Solo.Cnt 
Retu = UlLCnt 
End If 

Do Until UlLCnt = UtiJIax + 1 
BOXJ: 
Rem PRVLG 

If ff6X30e_§X3ie_eX28e_8X298._8X02e (Gyou. Retu) * CNSJIOTJtUILlnleger Then 

GoTo B0X_2 
End If 

GoTo BOX_E 

B0X.2: 
Ren PRVLG 
6*168 

BOXJ: 
Rem PUBL3F 

If ff6X30e_6X316_8X288_6X298JiX02ejffk8X07e (Gyou. Retu) = I Then GoTo B0X_4 
GoTo B0JL5 

B03L4: 
Rem PUBL3P 

If W6X3O8JlX3!6_eX280_6X298_©XO28_wk6XO7e(Gyou. Relu) = I Then B 6X 306.6X3 J6_6X 2 88_8X2 9 8_©X026 (Gyou, Retu) = 6X0' 
Rem PRVLG 

CTRL3'eX30§_8X289_6X298_$TSJTlANSITI0NJ ? LG = CTRLJteX308_§X286_6X29e_STSjrRANSITION_FLG + 1 
GoTo B0X_E 

B0X_5: 
Rem PRVLG 

If CTRU_W6X306_eX28Q_eX298_STS_TRANSITI0N JIQJ 
- CTRLjreX308_9X288_8X298_STSjrRANSlTIONJ ? LG_PP Then 

GoTo B0X_6 
End If 

GoTo B0)L7 

Rem PRVLG 

I f CTRL^8X30e_8X288_eX29e_STS^TRANSITI0NJ ? LGJ > 
= CTRL_ff6X30OX286_6X298_STS_TRANSITI0N_FLG_PP Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

B0X_B: 
Rem PRVLG 

CTRL_ff8X3Oe_eX3ie_6X288_8X290_eXO2dJOTJ'ALID„FLG (Gyou, Retu) = True 
GoTo BOO 

B0X_7: 
Rem PRVLG 
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ttM-Si^i? bJMDSl : 0 1 7 - 3 

m%i/mt>/mmm/mffim/mRm<D l 3 <*9** 0170-3) 



CTRLJ'@*30@_@*29@JNG_FLG = True 
G0T0 BOXJ 

BOX J : 

UtLCnt = UtLCnt + 1 
Rem PRVLG 

If @K34@ < @%35@ then 
Gyou = UlLCnt 
Retu = Soto_Cnt 
End If 
Rem PRVLG 

If mi® > @%35@ then 
Gyou = Soto_Cnt 
Retu = UtLCnt 
End If 

Loop 

Soto_Cnt = Soto_Cnt + 1 
Rem PRVLG 

If @X34@ < @%35@ then 
Gyou = Uti_Cnt 
Retu = Soto_Cnt 
End If 
Rem PRVLG 

If @%34@ > @%35@ then 
Gyou = Soto_Cnl 
Retu = UtLCnt 
End If 
Loop 

Gyou = 0 
Retu = 0 

UtLCnt = 0 
Sotojnt = 0 
UtLMax = 0 
SotoJIax = 0 
End Sub 

Rem *** PRCEND 
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ft&-±'<9 h)MDM : 01 8-1 

Option Explicit ~~ 
Rem 3DEFPUB 
Rem PUB4N4 

Private W8X308_8X318_8X288_8X298_@X028 (8X268, 8X278) As 8X236 
Rem PUBIN4 

Private ftM3058_8X315@_8X2858_8X2958_8X2008 (8X2658, 8X2758) As 8X2358 
Rem PUB5C4 

Private CTRLJW30«_§X28«JSIS29§_STSJRANSITI0NJLG As Integer 
Rem PUB5Y4 

Private CTRLWX30OX28§JX29§JTSJRANSITI0NJ ? LGJ As Integer 
Rem PUB5B4 

Private CTRL3^30O«28O«29@_STS_TRANSITI0NJ r LGJP As Integer 
Rem PUB6F4 

Private CTRLje*30O«31OX28©_«X29MII502O0TJ , ,ALIDJ 7 LG(@«26® 1 8X278) As Boolean 
Rem #DEFEND 
Rem PUB4B4 

Private W8X3008_8X310@_8X2808_8X290e_8X2008 (8X268. 8X278) As 8X238 
Rem PUB4N3 

Private W3_8X318_8X288_8X298_@X028 (8X268, 8X278) As Integer 
Rem PUB4N2 

' Private W2_8X318_8X288_8X298_8X028 (8X268, 8X278) As 8X23® 
Rem #DEFPRV 
Rem PRV2T4 

Private ff8X308_8X318_8X288_8X298_8X028_wk (8X268, 9X271) As 8X238 
Rem PRV7R4 

Private CTRLJT§X30«_§X29§_1NGJLG As Boolean 
Rem *PUBKU 

Private CNSJWTJtfJH_String As string 

Private CNSJWTJOJHJnteger As Integer 

Private CNSJ!OTJttJH_Boolean As Boolean 

Private CNS.NOTJKUH.Long As Long 

Private CNSJOTJUHJ ingle As Single 

Private CNS_NOT_KUHJ)ouble As Double 

Private CNSJWTja)H_Variant As Variant 

Private CNS_NOTJ(UH_Currency As Currency 

Private CNS_NOT_KUHJyte As Byte 

Private CNS_NOTJ(UH_Dale As Date 

Private Gyou as Integer 

Private Retu as Integer 

Private UtLCnt as Integer 

Private Solo_Cnt as Integer 

Private UtiJIax as Integer 

Private SotoJIax as Integer 
Rem $PRV2W4 
8X1728 
Rem $PRV2E4 
Rem $PRV4ff4 
8X1828 
Rem $PRV4E4 
Rem #DEFEND 

Public Sub NainO 

Rem #VECREP Private Sub L4_GX31OX28e_8X298_8X02OX078 0 
Gyou = 0 



{±ifE# 2004-3099195 



#M 2003-331373 



s<-i?: 139/ 



[mi 4 i] 

h)l<DSl : 0 1 8 - 2 

jE«/ffla/BB^ff/ / <gfl»/ttfffi'g)L4 (flttfO 18 0-2) 

Re tu = 0 
Rem PRVLG 

If ®%m < @%35© then 
Rem PRVLG 

UtLMax = @^26@ 

Rem PRVLG 

Sotojlax = mm 

End If 
Rem PRVLG 

I f @X34@ > @%35@ then 
Rem PRVLG 

utijiax = mn 

Rem PRVLG 

Sotojlax = @S268 
End If 
UtLCnt = 0 
Soto.Cnt = 0 
Do Until Soto_Cnt = Sotojlax f 1 
UtLCnt = 0 
Rem PRVLG 

If %%m < mm then 
Gyou = UtLCnt 
Retu = Soto.Cnt 
End If 
Rem PRVLG 

If 0*34® > @*35® then 
Gyou = Soto_Cnt 
Retu = UtLCnt 
End If 

Do Until UlLCnt = UUJlax + 1 
BOX. I : 
Rem PRVLG 

If W@%30O*31O*28@_@*29O%02@ (Gyou, Retu) = CNSJJ0TJ0JO*23@ And _ 
Rem PRVLG 

W3_«X31MX28§LW29t_W02§ (Gyou, Retu) = mi 9 Then 
GoTo B0X_2 
End If 

GoTo BOXJ 

B0X_2 : 
Rem PUBIN 

If W§%305fi_§X315MX285§_«X2958_«%200§ (Gyou, Retu) = CNS_N0TJOJH_JX235© Then Go To Box.3 
Rem PRVLG 

0X170 
B0X_3 : 
Rem PRVLG 

If W0X3O§_0X31§_0X28§_0*290_0XO20_wk (Gyou. Retu) O CNS_N0TJCUH_@X23@ Then 

GoTo B0X_4 
End If 

GoTo B0X_5 

B0X_4: 
Rem PRVLG 

W0X3OOX31OX28OX29§_@XO28(Gyou, Retu) = ff@X 300*3 1 0_§X280_0X 2 9§J«0 2@_wk (Gyou, Retu) 
Rem PRVLG 
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ttWt-±s<2 h;KDS : 0 1 8 - 3 

jE«/aa/MBa»/»flBW/«»Hrg)L 4 (ga«4>0 180-3) 

W^300e_§X310MW800X290@_@!K200®(GyoaRetu) = W«530«_«X31«_«X280X29§_«X02§{Gyou. Retu) 
Rem PRVLG 

CTRL_We»30@_©X28®„©3529@_STS_TRANS I T I ON^FLG = CTRLJW30§_8X28§.W29i^STS_TRANSITIONJ f LG + I 
GoTo B03LE 

BOX J : 
Rem PRVLG 

I f CTRLJ'iSK30MX28i_§«29@ - STS_TRANSITI0N_FLGJ > 
= CTRLJf§%30§_§X288JX29iJTS_TRANSITIONJ ? LGJP Then 

GoTo B0X_6 
End If 

GoTo B0X.7 

BOX J: 
Ren PRVLG 

CTRLjm300^310»280»290«0200TJ , ALIDJLG(Gyou,Retu) = True 
GoTo B0X_E 

B0X_7 : 
Rem PRVLG 

CTRL_W@K30O*29@JNG_FLG = True 
GoTo B0X_E 

BOX J: 

UtLCnt = UtLCnt + 1 

Rem PRVLG 

I f m4® < @*35@ then 

Gyou = Uti_Cnt 

Retu = Soto_Cnt 
End If 

Rem PRVLG 

If > 0*35@ then 

Gyou = Soto_Cnt 

Retu = Uti_Cnt 
End If 

Loop 

Soto_Cnt = Soto__Cnt + 1 
Rem PRVLG 

If G$34@ < @S35@ then 
Gyou = UtLCnt 
Retu = Soto.Cnt 
End If 
Rem PRVLG 

If @X34@ > @S35G then 
Gyou = Soto.Cnt 
Retu = UtLCnt 
End If 
Loop 
Gyou = 0 
Retu = 0 
UtLCnt = 0 
Soto_Cnt = 0 
Uti_Max = 0 
SotoJIax = 0 
End Sub 

Rem *** PRCEND 
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K/ffla/Bfl& / /ffffiM/%#<%PL 3 (gg^O 19 0-1) 

Option Explicit 
Rem 3DEFPUB 
Rem PUB4N3 

Private K8X306_eX31§_6X288..eX296_eX02e As Integer 
Ren PUBIN3 

Private ff6X305§_6X315MX285e_eX295§_6X20Q8 As 6X2358 
Rein PUB5C3 

Private CTRLJJ6X30O*28MX298_STS_TRANSITI0N_FLG As Integer 
Ren PUB5Y3 

Private CTRLjeJ630§_§X28e_OX29&_STS_TRANSITION_FLG_P As integer 
Rem PUB5B3 

Private CTRLJ8X30§_§3«;289^§X29§_STS^TRANS1TI0N - FLG_PP As Integer 
Ren PUB6F3 

Private CTRL_W§X30MX31^©X28l_eX29MX02O0T^VALID_aG As Boolean 
Ren ^DEFEND 
Ren 5DEFPRV 
Ren PRV2T3 

Private m308_8%3l8_ex28§_©X29§..exQ29_wk As Integer 
Ren PRV7R3 

Private CTRLjrex308_8X298_.ING_FLG As Boolean 
Ren PUBKU 

Private CNSJJOTja»LInleger As Integer 
Ren IPRV2R3 
6k 1629 
Ren JPRV2E3 
Rem $PRV4W3 
6X1658 
Ren $PRV4£3 
Ren 3 DEFEND 

Public Sub MainO 

Ren SVECREP Private Sub L3_8X3ie_ex28e_6X29©_8XQ28 0 
B0X_1: 
Ren PRVLG 

If ff6X308_6X31&_©X28§_8X298_eX026 = CNSJlOTJCIHUnteger Then 

GoTo B03L2 
End If 
, GoTo BOX_E 

B0X.2: 
Ren PRVLG 

8X166 
B0X_3: 
Rem PRVLG 

If ff6X308_8X3ie_6X288_eX296_8X026^k O CNS_NOT_KUH_Integer Then 

GoTo B0X_4 
End If 

GoTo BOXJ 

B0X.4: 
Rem PRVLG 

srex308_ex3ie_«x286_ex299_exo2e = ff©x3oe_ex3i©_ex28§_ex298_«xo2©_wk 

Ren PRVLG 

CTRL^8X30e_§X288_6X296_STS_TRANSITI0N_FLG = CTRlje*308_§X28a_8X298_STS.JRANSITI0N_FLG + 1 
GoTo BOXJ 

BOXJ: 
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ttm-£'<!7 Y)V<DWl : 0 1 9 - 2 

K/mx/&mm/mmm/ififtm<DL 3 (si#^o 190-2) 



Rem PRVLG 

I f CTRL J§%30i^§%28§_§X29§JTS_TRANSIT10NJPLCLP 
= CTRLJ«X30MX28§JX29e^STSJRANSITION_FLGJP Then 

G0T0 BOXJ 
End If 

G0T0 B0X_7 

B0X_6: 
Rem PRVLG 

CTRLJ«X30MX31§JX28MX29fiJX02O0T_VALIDJLG = True 
G0T0 BOXJ 

B0X_7: 
Rem PRVLG 

CTRLjra*30§J%29©JNGJLG = True 
G0T0 BOXJ 

BOXJ: 
End Sub 
Rem *** PRCEND 
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h)V<DM : 0 2 0-1 

K/mti/mwm/mmm/mRM<D l a es-mm^ 0200-1; 

Option Explicit 
Rem #DEFPUB 
Rem PUB4N4 

Private W8X308.JX3 l@_@X288_@X298_8X028_Sum As 8X23® 
Rem PUBIN4 

Private W8X3058_8X3158_8X2858_8X2958_8X2008 As 8X2358 
Rem PUB5C4 

Private CTRLjr§X30«_«X28O»29§_STSJRANSITI0NJFLG As Integer 
Rem PUB5Y4 

Private CTRLJ@X30O»28O«29@_STS_TRANSlTI0N_FLG_P As Integer 
Rem PUB5B4 

Private CTRL^W«X308JX28«_§3I529«_STSJRANSIT10NJFLGJP As Integer 
Rem PUB6F4 

Private CTRLJ8X308_8X318_@X288_8X298_8X02®J*OT_VALID_FLG As Boolean 
Rem 3DEFEND 
Rem PUB4B4 

' Private W8X300@_8X3 100X2800X2900X2009 As 8X238 
Rem PUB4N3 

Private W3_8X 3 1OX28OX29OX02© As Integer 
Rem PUB4N2 

' Private W2_@X3 1OX28OX29OX029 As 8X238 
Rem SDEFPRY 
Rem PRV2T4 

Private W8X308_@X318_®X28®_®X29®_8XQ28_wk As 8X238 
Rem PRV7R4 

Private CTRL_W8X308_®X298_INO_FLG As Boolean 
Rem *PUBKU 

Private CNS_NOTJKJH_String As String 

Private CNSJWT_KUH_Integer As Integer 

Private CNS_NOTja!H_Boolean As Boolean 

Private CNSJ*OTJttJHJ,ong As Long 

Private CNSJWTJCUOingle As Single 

Private CNSJMTJttJHJ)ouble As Double 

Private CNSJ*OTJCUH_Variant As Variant 

Private CNS_N0TJOJH_Currency As Currency 

Private CNS_NOT_KUH__Byte As Byte 

Private CNS_NOTJKUHJ)a t e As Date 
Rem SPRV2W4 
8X1728 
Rem $PRV2E4 
Rem $PRV4W4 
8X182® 
Rem SPRV4E4 
Rem #DEFEND 

Public Sub MainO 

Rem SVECREP Private Sub L4_8X31@_8X28®_®X298_8X028 0 
BOX_I: 
Rem PRVLG 

If W8X308_8X318_8X28®_8X298_®X028_Sum = CNS_N0TJOJIL®X23® And _ 
Rem PRVLG 

W3_8X3 1OX28OX29OX028 = 8X078 Then 
GoTo BOO 
End If 
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G0T0 BQX_E 

BOX Jl : 
Rem PUB IN 

If W@K3056_@*315M*285@_@%295O*200@ = CNS_N0TJUJO*235@ Then Go To Box_3 
Rem PRVLG 

mm 

B0X_3 : 
Rem PRVLG 

If W@SK30O«3IOS528O«29@_^02@_wk O CNS_N0T_KUH_@%23@ Then 

G0T0 B0X_4 
End If 

G0T0 B0X.5 

B0X_4: 
Rem PRVLG 

W@«30O%3lO«28O»29O«02^Sum = W@5630O5S31O^28@_@»29@_@»02@_wk 
Rem PRVLG 

W2_@%31O*288_@X29O*02@ = W@*30O*31O*28O*29M*02@_wk 
Rem PRVLG 

CTRL_W@^30@_^28O«29@_STS^TRANSITI0NJLG = CTRLjm30@_@»28O»29@_STS_TRANSITI0NJLG + 1 
GoTo B0X_E 

B0X_5 : 
Rem PRVLG 

1 f CTRL_W^30@_@X28O«29@_STS_TRANS I T 1 0N_FLG_P 
= CTRL_W@»30O9528O«29@_STS_TRANSITI0NJLGJP Then 

GoTo BOXJ 
End tf 

GoTo B0X_7 

B0X_6 : 
Rem PRVLG 

CTRLjm30OX3lO*28O^29OX02O0T_VALID_FLG = True 
GoTo B0X_E 

B0X_7 : 
Rem PRVLG 

CTRLJf®%30O*298JNG_FLG = True 
GoTo BOXJ 

B0X_E: 
End Sub 
Rem *** PRCEND 
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Option Explicit 
Rei #DEFPUB 
Rem PUB4N3 

Private W@X3G@_@X31@_@X28@_@X29OX02® As Integer 
Rem PUBIN3 

Private W9X3O5@_0X315@_@X285OX295O%2OO@ As 9X2359 
Rem PUB5C3 

Private CTRLJ'@X30OS628OX29@_STS„TRANSITI0NJLG As Integer 
Rem PUB5Y3 

Private CTRLJ*0X3O9_0X28@_@X29@_STSJ , RANSITIONJ ? LGJP As Integer 
Rem PUB5B3 

Private CTRLJ@5530O»28@_@»29@.STS^TRANSITI0N_FLG - PP As Integer 
Rem PUB6F3 

Private CTRLJ^30O*31O«28O^29O^02@_N0T_VALID_FLG As Boolean 
Rem 3DEFEND 
Rem SDEFPRV 
Rem PRV2T3 

Private W@X3O9__@X3i0_0X288_0X290_0XO20_wk0XO79 As Integer 
Rem PRV7R3 

Private CTRLJ*0X3O@_9X290_INGJFLG As Boolean 
Rem PUBKU 

Private CNS_NOTJCUlUnteger As Integer 
Rem $PRV2W3 
9X1626 
Rem $PRV2E3 
Rem $PRV4W3 

mm 

Rem $PRV4E3 
Rem SDEFEND 
Public Sub MainO 

Rem #VECREP Private Sub L3_@X31@_9X289_@X299_9X02@ 0 

BfflLI: 
Rem PRVLG 

If W9X309_9X319_9*289_9X29@_JX029 = CNSJTOTJOJHJnteger Then 

GoTo B0X_2 
End If 

GoTo BOX_E 

B0X_2: 
Rem PRVLG 
0X169 

B03L3 : 
Rem PUBL3F 

If W0X3O0_0X319_9X289_m99_9XO29_wk0XO79 = 1 Then GoTo B0X_4 
GoTo B0X_5 

B0X_4 : 
Rem PUBL3F 

If ff0X3O9_0X3 10.9X289 _0X299_0XO29_wk0XO79 = 1 Then W9X3Q0_9X310_0X280_0X299_0XO29 = 9X079 
Rem PRVLG 

CTRLJT0X3OOX280_@X298_STSJlWNSmON.JLG = CTRL39X3O0_0X280_@X290_STSjrRANSITION_FLG f 1 
GoTo BOX J 

BOX J: 
Rem PRVLG 

I f CTRL_W9X309^9X28@,9X299^STS,TRANSITI0N_FLG_P 
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= CTRL_W@X30OX28O5K29@.STS_TRANSITI0N_FLG„PP Then 

GoTo BQXJ 
End If 

GoTo B0X.7 

B0X_6: 
Rem PRYLG 

CTRLJW30OX31O»28OX29@^02O0TJ , ALID.FLG = True 
GoTo BOXJ 

B0X_7 : 
Rem PRYLG 

CTRLJ@^30@^29@^ING_FLG = True 
GoTo B0X_E 

BOX J: 
End Sub 

Rem *** PRCEND 
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Option Explici I ' 
Rem SDEFPUB 
Rem PUB4N4 

Private W@X30OX31O*28O*29OX02@_Sum As @*23@ 
Rem PUBIN4 

Private W©*305O*3 150*2850*2950*2006 As @*235@ 
Rem PUB5C4 

Private CTRLJ«X30©JX28©.eX29©JTSJRANSITIONJLG As Integer 
Rem PUB5Y4 

Private CTRL.W®X30§_§Sfi28OX29@„STS„TRANSITI0N.FLGJ > As Integer 
Rem PUB5B4 

Private CTRLJ©M0«_W28«_flX29«JTSJRANSITIONJ ? LG.PP As Integer 
Rem PUB6F4 

Private CTRLJ@SS30OSK31O«28@_@«29O«02O0TJ f ALIDJLG As Boolean 
Rem #DEFEND 
Rem PUB4B4 

' Private W@*300O*3 10O*280O*290O*200@ As @*23@ 
Rem PUB4N3 

Private W3_@*31O*28O*29O*02@ As Integer 
Rem P0B4N2 

' Private W2_@*3 10*280*290*02® As @*23@ 
Rem #DEFPRV 

Rem PRV2T4 

Private W@*30O*3IO*28O*29O*02@_wk As @%23@ 
Rem PRV7R4 

Private CTRLjraX3QO*29@_INGJ ? LG As Boolean 
Rem *PUBKU 

Private CNSJlOTJOJILString As String 
Private CNS_N0TJOJHJnteger As Integer 
Private CNSJIOTJkUHJBoolean As Boolean 
Private CNS_NOTJvUH_Long As Long 
Private CNSJ10TJOJH_S ingle As Single 
Private CNSJ*OTJOJHJ)ouble As Double 
Private CNSJKJTJKUILVa riant As Variant 
Private CNSJWTJOJILCurrency As Currency 
Private CNSJTOTJOJHJyte As Byte 
Private CNS_NOTJCUH_Date As Date 
Rem SPRV2W4 

§*172© 

Rem $PRV2E4 
Rem $PRV4ff4 

mm 

Rem SPRV4E4 
Rem SDEFEND 
Public Sub MainO 

Rem #VECREP Private Sub L4_@*3iO*28@ @*29O*02O*07@ 0 
B0X_1 : 
Rem PRVLG 

If W8*30O*31O*28O*29O*02@_Sum = CNSJJOT KUO*23@ And 
Rem PRVLG 

ff3_0X31O*28O*29O*O2§ = @X07@ Then 
GoTo B0X_2 
End If 
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GoTo BOXJ 
BOX J : 
IRem PUBIN 

If ra*305O*3I5O*285O*295O*200@ = CNS_N0TJKUO*235® Then Go To Box_3 
I Rem PRVLG 

B0X_3 : 
iRem PRVLG 

If W@*30O*31O*28O*29O*02Ok O CNS_NOTJvUH_@X230 Then 

GoTo BOXJ 
End If 

GoTo BOXJ 

BOXJ : 
IRem PRVLG 

W@X30O*31O*28O*29O*02Oum = W@*30O*31O*28O*29O*02@_wk 
IRem PRVLG 

W2J*31O*28O*29O*02§ = W8* 3 00*310*280*2 9 0*0 28_wk 
[Rem PRVLG 

CTRL_ff@*30O*28O*29@_STS_TRANSITI0N - FLG = CTRLjm30O*28O*29OTSJRANSlTI0NJLG + 1 
GoTo BOX_E 

B0X_5 : 
IRem PRVLG 

I f CTRLJ'@*30O*28O*29@_STS_TRANSITI0N_FLG_P 
= CTRLJ@*30O*28O*29OTSJRANSITI0NJLGJP Then 

GoTo BOXJ 
End If 

GoTo B0X_7 

B0X_6 : 
IRem PRVLG 

CTRLJ@*30O*3IO*28O*29O*02O0T_VALID_FLG = True 
GoTo BOXJ 

B0X_7: 
IRem PRVLG 

CTRLJ@*30O*298JNGJLG = True 
GoTo BOXJ 

BOXJ: 
(End Sub 
Rem *** PRCEND 
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Option Explicil 
Rem #DEFPUB 
Rem PUB4N3 

Private W8X308_8X3I8_8X288_8X298_8X028 (8X268, 8X278) As Integer 
Rem PUBIN3 

Private W8X305@_8X315@_8X2858_8X2958_8X2008 (8X2658. 8X2758) As 8X2358 
Rem PUB5C3 

Private CTRLjr8X308_8X288_8X298_STSJTRANSITI0N FLG As Integer 
Rem PUB5Y3 

Private CTRLjeX30e - ®9J28OX29§_STS_TRANSITI0NJLG_P As Integer 
Rem PUB5B3 

Private CTRLJ"§X30«^eX28d_«l!29®JTSJRANSITI0NJFLGJ , P As Integer 
Rem PUB6F3 

Private CTRLJ§X30OX31§_@X28OX29OX02O0T_VALID_FLG(§X26©. 8X278) As Boolean 
Rem #DEFEND 
Rem 3DEFPRV 
Rem PRV2T3 

Private W§X308_8X318_®X28§_8X298_8X028_wk (§9526®, 8X278) As Integer 
Rem PRV7R3 

Private CTRLJ@X308_8X298_ING_FLG As Boolean 
Rem PUBKU 

Private CNSJJOTJUJHJnteger As Integer 
| Private Gyou as Integer 

Private Retu as Integer 

Private UtLCnt as Integer 

Private Soto_Cnt as Integer 

Private UtiJIax as Integer 

Private SotoJIax as Integer 
Rem SPRY2W3 

mm 

Rem $PRV2E3 
Rem SPRV4W3 
6X1659 
Rem SPRV4E3 
Rem #DEFEND 
Public Sub Main 0 

Rem #VECREP Private Sub L3_8X3l8_8X28OX298_8X02® 0 

Gyou = 0 

Retu = 0 
Rem PRVLG 

If 8X348 < 8X358 then 
Rem PRVLG 

UtiJIax = 8X268 

Rem PRVLG 

SotoJIax = 8X278 
End If 
Rem PRVLG 

If 8X348 > 8X358 then 
Rem PRVLG 

UtiJIax = 8X278 

Rem PRVLG 

SotoJIax = 8X268 
End If 
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UtLCnt = 0 
Sotojlnt = 0 
Do Until Soto.Cnt = SotoJIax + 1 
UtLCnt = 0 
Rem PRVLG 

If @S34@ < @*35@ then 
Gyou = Uti^Cnt 
Retu = Soto_Cnl 
End If 
Rem PRVLG 

If @*34@ > @*35G then 
Gyou = Sotojnl 
Relu = Uii.Cnt 
End If 

Do Until Uti_Cnt = Utijfax + 1 
B0X_1 : 
Rem PRVLG 

If W@%30O*3 10*280*290*028 (Gyou. Retu) = CNS_NOTJttJH_Integer Then 

GoTo B0X_2 
End If 

GoTo BOX_E 

B0X_2 : 
Rem PRVLG 
6% 168 

B0X_3 : 
Rem PRVLG 

If m30O*31O*28O*29O*02@_wk (Gyou, Retu) O CNSJ*OTJOJO*23@ Then 

GoTo B0X_4 
End If 

GoTo B0X.J 

B0X_4: 
Rem PRVLG 

W@*300*310*280*290X02@(Gyou, Retu) = W@X300*3IO*280*290*02@_wk(Gyou. Retu) 
Rem PRVLG 

CTRL_ff@*30O*28O»29@„STS^TRANSITI0N_FLG = CTRL_W8«30O»28O*29@_STS_TRANSITI0N^FLG + 1 
GoTo B0X_E 

BOX J : 
Rem PRYLG 

If CTRL3@*30O*28O*2^ 

= CTRL_W@X30@_@^28O»29@_STS^TRANSlTI0N_FLG_PP Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

BOO: 
Rem PRVLG 

CTRL3^30§_@X310X28@_@«290^0200T_VALID_FLG(Gyou,Retu) = True 
GoTo BOX_E 

BOX J7 : 
Rem PRVLG 

CTRL_W©*30O*29®_ING_FLG = True 
GoTo BOX J 

BOX_E: 

UtLCnt = UtLCnt + 1 
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Rem PRVLG 



If 6*348 < 8*5358 then 
Gyou = UtLCnt 
Retu = Solo_Cnt 

End If 



Rem PRVLG 



If 8X346 > 0*35® then 
Gyou = Soto_Cnt 
Retu = UtLCnt 
End If 

Loop 

Soto.Cnt = Soto_Cnt t 1 
Rem PRVLG 

If 8*340 < ©56350 then 
Gyou = UtLCnt 
Retu = Sotojnt 
End If 
Rem PRVLG 

If @%34@ > @*358 then 
Gyou = Soto_Cnt 
Retu = UtLCnt 
End If 
Loop 
Gyou = 0 
Retu = 0 
UtLCnt = 0 
Soto_Cnt = 0 
UtLMax = 0 
Soto_Max = 0 
End Sub 

Rem *** PRCEND 
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Option Explicit 
Rem #DEFPUB 
Rem PUB4N4 

Private ff§«30ejX31@_§X28O%29O5l502e.Sum{§5K26®. 6»27®) As @*23@ 
Rem PUB1N4 

Private TOX305OS315O*285§_@*295O*20Q@(@fc265@, @%275@) As @%235@ 
Rem PUB5C4 

Private CTRLjm30O^28O*29@_STS_TRANSIT10N_FLG As Integer 
Rem PUB5Y4 

Private CTRLJ'@%30@_@»28O%29@_STS„TRANSIT10NJLGJ As Integer 
Rem PUB5B4 

Private CTRL3^30OX28O^29^STS_TRANSlTI0N_FLG_PP As Integer 
Rem PUB6F4 

Private CTRLJ'@S530O»31O*28O*29O«02O0T_VALID_FLG (8*268, @%27@) As Boolean 
Rem 3DEFEND 
Rem PUB4B4 

' Private W@%300O^310O«280O*290O«200@m26@ > @3527@) As @S23@ 
Rem PUB4N3 

Private W3^31O»28@_©«29O«02@(@X26@,@X27@) As Integer 
Rem PUB4N2 

' Private T2««X3IMX28§_W29«_§X028(«X26«.§M7i) As @*23@ 
Rem SDEFPRY 
Rem PRV2T4 

Private W@*30O*31O*28@_@%29^502Ok (@%26@, mm As @%23@ 
Rem PRV7R4 

Private CTRLJ^308_@*29@JNG_FLG As Boolean 
Rem +PUBKU 

Private CNS_NOT_KUH_String As String 

Private CNSJlOTJOHLInteger As Integer 

Private CNS_NOT_KUHJoolean As Boolean 

Private CNS_NOT_KUH_Long As Long 

Private CNSJOT_KUH_S ingle As Single 

Private CNSJiOTJCUHJouble As Double 

Private CNSJlOTJKUH_Variant As Variant 

Private CNSJWTJOJILCurrency As Currency 

Private CNS.NOTJOJHJy te As Byte 

Private CNS_NOT_KUfl_Date As Date 

Private Gyou as Integer 

Private Retu as. Integer 

Private UtLCnt as Integer 

Private Soto_Cnt as Integer 

Private Uti_Max as Integer 

Private SotoJIax as Integer 
Rem $PRV2W4 

Rem $PRV2E4 
Rem $PRV4W4 
@*1826 
Rem $PRV4E4 
Rem #DEFEND 
Public Sub MainO 

Rem 3YECREP Private Sub LO*3 10*280*290*020 0 
Gyou = 0 
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Retu = 0 
Rem PRVLG 

If @%34@ < @*35@ then 
Rem PRVLG 

Utijiax = 8*26® 

Rem PRVLG 

SotoJIax = 

End If 
Rem PRVLG 

If @K34@ > @$358 then 
Rem PRVLG 

utijiax = mn 

Rem PRVLG 

SotoJIax = @*268 
End If 
Uti_Cnt = 0 
Soto_Cnt = 0 
Do Until Soto_Cnt = Sotojtfax + 1 
UtLCnt = 0 
Rem PRVLG 

If @*34@ < @X35@ then 
Gyou = Uti^Cnt 
Retu = Soto.Cnt 
End If 
Rem PRVLG 

If @X34@ > @%35@ then 
Gyou = Soto_Cnt 
Retu = UtLCnt 
End If 

Do Until UtLCnt = Utijiax + 1 
BOXJ : 
Rem PRVLG 

If ff^30O*31@_@^28O»29@_^02@_Sum (Gyou. Retu) = CNS_NOTJOJO*23@ And _ 
Rem PRVLG 

W3_@^lO*28OS29O*02@ (Gyou, Retu) = @5K07@ Then 
GoTo B0X_2 
End If 

GoTo BOXJ 

. B0X_2: 
Rem PUB IN 

If W@%305OK315O*285O*295O*200@ (Gyou, Retu) = CNS_NOTJOJO*235@ Then Go To Box J 
Rem PRVLG 

B0X_3: 
Rem PRVLG 

If W@X30O«31OX28O»29O*02@_wk (Gyou. Retu) O CNS_N0TJ(UH_@%23@ Then 

GoTo B0X_4 
End If 

GoTo B03L5 

B0X_4: 
Rem PRVLG 

W@X300«310X28@_@^290SS02@_Sum(Gyou, Retu) = ff@%300»310X280»290X02^wk(Gyou, Retu) 
Rem PRVLG 
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ft'2^3tO»28@_@%29O%02@ (Gyou. Rctu) = W@^O*31O*28O*29O*02@jvk (Gyou, Retu) 
Rem PRYLG 

CTRLJ@X30O*28O«29@_STS_TRANSITI0N^.FLG = CTRL_W@^30@_@S628O»29@-STS_TRANSITI0N_FLG + 1 
GoTo BOX_E 

BOX J: 
Rem PRYLG 

I f CTRL_W@^30@_@«28O*29@_STS.TRANSITI0N JLG_P 
= CTRLJM30OX28O»29@^STS^TRANSITI0NJLG_PP Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

B0X.6: 
Rem PRVLG 

CTRL3'@SK30e_@»31O«28O»29O^02@_N0T„VALIDJLG (Gyou. Retu) = True 
GoTo BOX J. 

B0X_7: 
Rem PRVLG 

CTRLJfr@%30@_@r29@JNGJ ? LG = True 
GoTo BOXJ 

BOX _E: 

UtLCnt = UtLCnt + 1 

Rem PRVLG 

If @%34@ < @*35@ then 

Gyou = Oti_Cnt 

Retu = Soto_Cnt 
End If 

Rem PRVLG 

If @&34@ > @X35@ then 

Gyou = Soto_Cnt 

Retu = UtLCnt 
End If 

Loop 

Soto.Cnt = Soto_Cnt + 1 
Rem PRVLG 

I f @*34@ < @X35@ then 
Gyou = UtLCnt 
Retu = Soto_Cnt 
End If 
Rem PRVLG 

If @*34@ > @*35@ then 
! Gyou = Soto_Cnt 
Retu = UtLCnt 
End If 
Loop 
Gyou = 0 
Retu = 0 
UtLCnt = 0 
Soto_Cnt = 0 
Utijfax = 0 
Sotojlax = 0 
End Sub 

Rem *** PRCEND 
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Option Explicit 
Rem #DEFPUB 
Rem PUB4N3 

Private W@X30O»31O^28@_@^29O^02§(@%26@,@S527@) As Integer 
Rem PUBIN3 

Private WeX3058_eX315MX285§_§X295§JX200e{§X265§ i @*275@) As @%235@ 
Rem PUB5C3 

Private CTRLJ'@»30O*28@_§^29@^STS_TRANSITI0N_FLG As Integer 
Rem PUB5Y3 

Private CTRl_W§X30§JX28«_e%29«JTS_TRANSITIONJPLCJ As Integer 
Rem PUB5B3 

Private CTRLJ§X30MX28«JX29»JTSJRANSITIONJ ? LGJ , P As Integer 
Rem PUB6F3 

Private CTRLJ@SK30§ - §X31§J!K28OX29O*02®JI0T_VALIDJLG (@S26@, @5K27@) As Boolean 
Rem 3DEFEND 
Rem #DEFPRV 
Rem PRV2T3 

Private T«X30S_M31§JX288_«%29§_i%02«jffkeX07§»X26e. W27§) As Integer 
Rem PRV7R3 

Private CTRLJTOX30«J%29I_ING_FLG As Boolean 
Rem PUBKU 

Private CNSJWT__KUH_Integer As Integer 
Private Gyou as Integer 
Private Retu as Integer 
Private Uti_Cnt as Integer 
Private Soto_Cnt as Integer 
Private UtiJIax as Integer 
Private Sotojlax as Integer 
Rem SPRV2V3 

mm 

Rem $PRV2E3 
Rem $PRV4W3 

Rem $PRV4E3 
Rem SDEFEND 
Public Sub MainO 

Rem #VECREP Private Sub L3_W31§_W28«_«X29OK02§0 

Gyou = 0 

Retu = 0 
Rem PRVLG 

If 6*340 < %%m then 
Rem PRVLG 

Uti_Max = @K268 

Rem PRVLG 

Sotojlax = @327@ 

End If 
Rem PRVLG 

If @*34@ > 8*35@ then 
Rem PRVLG 

UtiJIax = ®%21Q 

Rem PRVLG 

Sotojlax = @*26© 
End If 
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UU_Cnl = 0 
SotoJIot = 0 
Do Until Solo.Cnt = SotoJJax + I 
UlLCnt = 0 
Rem PRVLG 

If 6X346 < §35350 (hen 
Gyou = UtLCnl 
Retu = Soto_Cnt 
End If 
Ren PRYIG 

U ©X340 > 8X358 then 
Gyou = Solo_Cnl 
Relu = UU_Cnt 
End If 

Do Unlit UU^Cnt = Utljlax + I 
B0X_l: 
Rem PRVLG 

If m308_eX3)§_8X28e_eX298_ex028 (Gyou. Retu) = CNSJWTJiUHJnteger Then 

G0T0 B0)L2 
End If 

G0T0 BOX.B 

B0X.2: 
Rem PRVLG 

mm 

B0X_3: 
Rem PUBL3F 

If ffeX30e_8X3I9_6X28&_8X299_eXG28_wkeX079 (Gyou, Retu) = I Then GoTo B0X_4 
G0T0 B0X..5 

B0X_4: 
Rem PUBL3F 

IT W8X308_eX3ie_8X288_§X298_eX028_wkeX()7e (Gyou. Retu) * I Then ff8X308_8X3 1 8_8X288_8X29e_eS028 (Gyou, Retu) = 8X0" 
Rem PRVLG 

CTRL_W§X308_§X28e_eX298_STSjrRANSITIONJ ? LG = CTRLJfcX308_eX289_8X298_STS_TRANSITI0N_FLG * I 
GoTo B0X.E 

B0X.5: 
Rem PRVLG 

If CTRL_W8X30O3528e_§X29i_STS_TRANSITI0N.FLG_P 
= CTRL_ffe%30©_eX28M%29^STS - .TRANSIT10N_FLG_PP Then 

GoTo B03L6 
End If 

GoTo B0]L7 

B0X_6: 
Rem PRVLG 

CTRLje*30O«3ie_eX28MX298_©5K02fl^N0T„VAL]D_FLG (Gyou. Relu) = True 
GoTo B0X_E 

B0X_7: 
Rem PRVLG 

CTRLJfr8X308_8X298_ING_FLG s T rue 
GoTo B0X_E 

BOXJ: 

Uti.Cnt = IHLCnt 4 I 

Rem PRVLG 

If 6X348 < 8X358 then 
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Gyou = UtLCnt 
Relu = Soto_Cnl 
End If 
Rem PRVLG 

If @*34@ > ©*35@ then 
Gyou = Soto.Cnt 
Relu = UtLCnt 
End If 

Loop 

Soto_Cnt = Soto.Cnt + 1 
Rem PRVLG 

If mm < @*35@ then 
Gyou = UtLCnt 
Retu = Soto_Cnt 
End If 
Rem PRVLG 

If WU@ > mm then 
Gyou = Soto_Cnt 
Retu = UtLCnt 
End If 
Loop 

Gyou = 0 
Retu = 0 
UtLCnt = 0 
Soto_Cnt = 0 
UtiJIax = 0 
SotoJIax = 0 
End Sub 

Rem *** PRCEND 
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Option Explicit 
Rem SDEFPUB 
IRem PUB4N4 

Private W6*306_6*316_6*28e_6*296_6*026_Sum (6*266. 6*276) As 6*236 
IRem PUBIN4 

Private W3056_6*3156_6*2856_@*295@_6*2006 (6*2656, 6*2756) As @%235@ 
IRem PUB5C4 

Private CTRL_W@%30O*28O«29@^STSJRANSIT10NJLG As Integer 
IRem PUB5Y4 

Private CTRLjm30M»28O»29@_STS_TRANSITI0NJLGJ As Integer 
IRem PUB5B4 

Private CTRL_W@X30O%28OX29@_STS - TRANSITI0NJLG - PP As Integer 
IRem PUB6F4 

Private CTRLJ@X30O*31O*28@_@X29OX02O0T_VALID_FLG (6*266, 6*276) As Boolean 
IRem #DEFEND 
IRem PUB4B4 

Private W6*3006_6*3106_6*28G6_6*2906_6*2006 (6*266, 6*276) As 8*236 
IRem PUB4N3 

Private W3_e*316_J*286_6*298_6*026 (6*266, ©515276) As Integer 
IRem PUB4N2 

Private W2_6*316_6*286_e*296_6*026 (6*266. 6*276) As 6*236 
Private Gyou as Integer 
Private Retu as integer 
Private Uti_Cnt as Integer 
Private Soto_Cnt as Integer 
Private UtLMax as Integer 
Private Soto_Max as Integer 
IRem SDEFPRY 
IRem PRV2T4 

Private W6*308_e*3ie_8*286^*29@_6*026_wk (6*268, 6*276) As 6*236 
IRem PRV7R4 

Private CTRL_W8*308_6*296JNGJ ? LG As Boolean 
IRem *PUBKU 
Private CNSJOTJOJILString As String 
Private CNSJWTJttJHJnteger As Integer 
Private CNSJIOT_KUH_Boolean As Boolean 
Private CNS_NOT_KUH_Long As Long 
Private CNSJIOTJOJILS ingle As Single 
Private CNS_NOT__KUH_DoubIe As Double 
Private CNSJlOTJCURVa riant As Variant 
Private CNS_NOT_KUHJ)urrency As Currency 
Private CNSJJOTJttJOyte As Byte 
Private CNS_NOTJ(UHJ)ate As Date 
IRem SPRV2W4 
6*1726 
Rem SPRV2E4 
Rem $PRV4W4 
6*1826 
Rem $PRV4E4 
IRem #DEFEND 

Public Sub Main 0 
[Rem SVECREP Private Sub L4_e*31@^*288_6*298_e*026_8*078 0 
Gyou = 0 
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Retu = 0 
Rem PRVLG 

If @%34@ < ©S35@ then 
Rem PRVLG 

UtLMax = @*26© 

Rem PRVLG 

Sotojlax = @S627@ 

End If 
Rem PRVLG 

If @%34@ > @%35@ then 
Rem PRVLG 

litijlax = ®%m 

Rem PRVLG 

Sotojlax = @S26§ 
End If 
UtLCnt = 0 
Soto_Cnt * 0 
Do Until Soto_Cnl = Sotojlax + 1 
UtLCnt = 0 
Rem PRVLG 

If @X34@ < @K35@ then 
Gyou = UtLCnt 
Retu = Sotojnt 
End If 
Rem PRVLG 

If @%34@ > %%m then 
Gyou = Soto_Cnt 
Retu = UtLCnt 
End If 

Do Until UtLCnt = Utijiax + 1 
B0X_1: 
Rem PRVLG 

If W@*30OX31O^O*29O*02@_Sum (Gyou, Retu) = CNS_N0T_KUH_@*23@ And _ 
Rem PRVLG 

W3_@%31O*28@_@*29@_@*02@ (Gyou, Retu) = @X07@ Then 
GoTo B0X_2 
End If 

GoTo BO)LE 

B0X_2: 
Rem PUB IN 

If W@*305O*315O*285O*295O*2Q0@ (Gyou, Retu) = CNSJfOTJCUH_@X235@ Then Go To Box J 
Rem PRVLG 

B0X_3 : 
Rem PRVLG 

If ff@X30OX31O«28O^29O*02@_wk (Gyou. Retu) O CNS_N0TJCUO*23@ Then 

GoTo B0X_4 
End If 

GoTo B05L5 

BQJL4 : 
Rem PRVLG 

W@X30O*31O*28OS29O*02§_Sum (Gyou, Retu) = ff8fc30OK31O*28OS29@_@*02@_wk (Gyou. Retu) 
Rem PRVLG 
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I T2.§X3ie«.§X28flJX29MX02f (Gyou. Retu) = W@K 3 00*310^0*2 90*0 2@_wk (Gyou, Retu) 
Rem PRVLG 

CTRLJ'iX30§^«X28«_§X2M_STSJRANSITI0NJFLG = CTRL_WiX30MX28iJX29«.STS.TRANSITIONJLG + 1 
GoTo BOX J 

BOXJ: 
Rem PRVLG 

If CTRL„V@!l530O%28§_eS629§_STS - TRANSlTI0NJLGJ 
= CTRL3@%30O^28O^29@ - STSJRANSITI0N^FLG„PP Then 

GoTo BOXJ 
End If 

GoTo BOXJ 

BOXJ: 
Rem PRVLG 

CTRL_W§X30§JX31§_§X28§_«529i_§5502«J<OT.VALIDJ ? LG (Gyou, Retu) = True 
GoTo BOXJ 

B0X_7: 
Rem PRVLG 

CTRLJ'©*30O*29@JNGJLG = True 
GoTo BOXJ 

BOXJ: 

Utijnt = Ut i Jnt + 1 

Rem PRVLG 

1 f @%34@ < @*35@ then 

Gyou = Utijnt 

Retu = Sotojnt 
End If 

Rem PRVLG 

I f @*34@ > @%35@ then 

Gyou = Sotojnt 

Retu = Utijnt 
End If 

Loop 

Sotojnt = Sotojnt + 1 
Rem PRVLG 

If @*34@ < @*35@ then 
Gyou = Utijnt 
Retu = Sotojnt 
End If 
Rem PRVLG 

If @%34@ > @%35@ then 
Gyou = Sotojnt 
Retu = Utijnt 
End If 
I Loop 
Gyou = 0 
Retu = 0 
Utijnt = 0 
Sotojnt = 0 
Utijfax = 0 
SotoJIax = 0 
End Sub 

Rem *** PRCEND 
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Option Explicit 
Rem #DEFPUB 
Rem PUB4N3 

Private W@S30O:mOK28O*29O*02@ As Integer 
Rem PUBIN3 

Private W@K305Oni5O*285O*295O*20()@ As @*235@ 
Rem PUB5C3 

Private CTRL3'^30O«28OX29^STS_TRANSITI0NJLG As Integer 
Rem PUB5Y3 

Private CTRLJ'@X30O«28O«29OTS_TRANSITI0NJLG_P As Integer 
Rem PUB5B3 

Private CTRLW@%30O^28O»29@_STS_TRANSIT10N_FLG_PP As Integer 
Rem PUB6F3 

Private CTRLJ'@X30O*31@_^28OX29OX02@_N0T_VALID_FLG As Boolean 
Rem SDEFEND 
Rem #DEFPRY 
Rem PRV2T3 

Private ff@*30O*31OS28O*29OS02@_wk As Integer 
Rem PRV7R3 

Private CTRL„W@»30O*29@^INGJLG As Boolean 
Rem PUBKU 

Private CNS_NOTJCUH_Integer As Integer 
Rem $PRV2ff3 

mm® 

Rem $PRV2E3 
Rem $PRY4ff3 
@%165@ 
Rem $PRV4E3 
Rem 3DEFEND 
Public Sub MainO 

Rem #VECREP Private Sub L3_@K3 10*280*290*020 0 
BOXJ: 
Rem PRVLG 

If TO30O«3 10*280*290*02® = CNSJWTJttJHJnteger Then 

GoTo B0X_2 
End If 

GoTo BQX_E 

B0X_2: 
Rem PRVLG 

mm 

B0X_3 : 
Rem PRVLG 

If W@X30O*31O*28O*29O*02Ok O CNS_NOTJCUHJnteger Then 

GoTo BOXjf 
End If 

GoTo B0X_5 

B0X_4: 
Rem PRVLG 

W®*30O*3 10*280*290*02® = W@*30O*31O*28@_e*29@_@*02Ok 
Rem PRVLG 

CTRLJ@»30§_@X28O»29§_STS_TRANSITI0NJLG = CTRLjra*30O*28O*29OTSJTRANSm0N_FLG 4 1 
GoTo BOX_E 

j B0X_5: 
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Rem PRVLG 

I f CTRL J§X30§JX28§_§X29§_STS_TRANSITION JLGJ 
= CTRLV§X30§.i«28MX29§_STS_TRANSI7ION.PLCJ > P Then 

GoTo B0JL6 
End If 

GoTo B0X.7 

BOX J : 
Rem PRVLG 

CTRLJ@X30O^31O5K288^29@_@X02O0T_VALID^FLG = True 
GoTo BOXJB 

B0X_7: 
Rem PRVLG 

CTRL_ff@SK30O»29@_INGJ ? LG = True 
GoTo BOX J 

B0X_E: 
End Sub 
Rem *** PRCEND 
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Option Explicit 
Rem 3DEFPUB 
Rem PUB4N4 

Private W@X30OX31OX28OX29OX02@ As @X23@ 
Rem PUBIN4 

Private W0X3O5OX3 15OX285OX295OX200® As @X235@ 
Rem PUB5C4 

Private CTRLjr65IS30©_@X28O95299_STS„TRANSITI0N_FLG As Integer 
Rem PUB5Y4 

Private CTRLJ§X30MX28MX29§ - STS_TRANSITIOHJLGJ As Integer 
Rem PUB5B4 

Private CTRLJTW30ejX28«_W29©JTSJRANSITIONJ ? LGJ , P As Integer 
Rem PUB6F4 

Private CTRL3®X30OX31OX28OX29OX02O0TJfALID_FLG As Boolean 
Rem SDEFEND 
Rem PUB4B4 

Private W@X300OX310OX28GOX290OX200@ As @X23@ 
Rem PUB4N3 

Private ff3_@X 3 1OX28OX29OXO20 As Integer 
Rem PUB4N2 

Private W2_©X31OX28OX29OX02@ As @X23@ 
Rem HXEFPRV 
Rem PRV2T4 

Private W@X30OX31OX28OX29OXG2Ok As @X23@ 
Rem PRV7R4 

Private CTRL_WGX30OX29@JNG_FLG As Boolean 
Rem *PUBKU 

Private CNS_NOT_KUH_String As String 
Private CNSJIOTJOJHJnteger As Integer 
Private CNS_NOT_KUHJoolean As Boolean 
Private CNS_NOT_KUHJ,ong As Long 
Private CN S„NOT_KUH_S ingle As Single 
Private CNSJWTJOJHJ)ouble As Double 
Private CNSJH)TjeUH_Variant As Variant 
Private CNS_NOT_KUH_Currency As Currency 
Private CNSJJOTJOJHJyte As Byte 
Private CNSJlOTJCUHJate As Date 
Rem $PRV2W4 
@X172@ 
Rem $PRV2E4 
Rem IPRV4W4 

mm 

Rem $PRV4E4 
Rem SDEFEND 
Pub! ic Sub Main 0 

Rem #VECREP Private Sub L4_@X3 10X280X290X020 0 

boxj: 

Rem PRVLG 

If ff@X30OX3 IOX28OX29OXO20 = CNS_N0T_KML@X23@ 
And ff3_@X3 1OX28OX29OX02® = @X07@ Then 

GoTo B0X_2 
End If 

GoTo BOXJB 
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box_2 : 

Rem PUB IN 

If W@*305O*3 150*2850*2950*2008 = CNS_NOT_KUH_J*235§ Then Go To Box_3 
Rem PRVLG 

B0X_3 : 
Rem PRVLG 

If W@S30O*31O*28O*29O*02Ok O CNS_N0TJOJlL@a;23@ Then 

G0T0 B0X_4 
End If 

G0T0 BOXJ 

B0X_4: 
Rem PRVLG 

W@S30O*3iO*28O*29O*02@ = W@* 3 00*310* 2 80*290*0 2 @_wk 
Rem PRVLG 

CTRLJ^30O^28O%29@_STS„TRANSITI0N_FLG = CTRLJ^30@_@^28@_^29§_STS_TRANSITI0NJLG + 1 
GoTo BOX J 

BOX J: 
Rem PRVLG 

I f CTRLJ^@*30O*28O*29OTSJ , RANSITI0N JLGJ* 
= CTRL_W8^30OSK28@_@X29§.STS_TRANSITI0N_FLG.PP Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

B03L6: 
Rem PRVLG 

CTRL3^30O»31O»28§_@»29@_^02@_N0T_VALIDJLG = True 
GoTo BOXJE 

BOO : 
Rem PRVLG 

CTRL_W@*30O*29@_ING_FLG = True 
GoTo BOXJB 

BOO: 
End Sub 

Rem *** PRCEND 
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Option Explicit 
Rem SDEFPUB 
Rem PIIB4N3 

Private W8X308_8X318_8X288_8X298_8X02@ As Integer 
Rem PUB1N3 

Private W8X3058_8X3158_8X285OX2958_@X2008 As §952358 
Rem PUB5C3 

Private CTRLjm308_8X28OX298_STS_TRANSmQN_FLG As Integer 
Rem PUB5Y3 

Private CTRLW«X306_W28©JX298.STS_TRANSITIONJLGJ As Integer 
Rem PUB5B3 

Private CTRLW@X30OX28OX296_STS_TRANSITI0NJLG.PP As Integer 
Rem PUB6F3 

Private CTRLJ@X308_8X318_8X288_@X298_8X028Ji0T_VALID_FLG As Boolean 
Rem #DEFEND 
Rem 9DEPPRY 
Rem PRV2T3 

Private W8X308_8X318_8X28@_8X298_8X02@_wk8X078 As Integer 
Rem PRV7R3 

Private CTRLJ'@X308_8X298_INGJ ? LG As Boolean 
Rem PUBKU 

Private CNS_NOT_Kl)H_lnteger As Integer 
Rem $PRY2W3 
18X1628 
Rem $PRV2E3 
Rem $PRV4ff3 
8X1658 
Rem IPRV4E3 
Rem 3DEFEND 

Public Sub MainO 

Rem SVECREP Private Sub L3j3X318_8X288_@X298_8X028 0 
BOX_i: 
Rem PRVLG 

If W@X308_8X31@_8X288_8X298_8X028 = CNSJIOTJUJHJnteger Then 

GoTo B0X_2 
End If 

GoTo BOX_E 

BOX J: 
Rem PRVLG 
8X168 

B0)L3: 
Rem PUBL3F 

If W8X308_8X31OX288_8X29O*02@_wk8X078 = 1 Then GoTo B03L4 
GoTo B0X.5 

B0X_4: 
Rem PUBL3F 

If W8X308_8X31@_8X288_8X298_eX028_wk8X078 = 1 Then W8X308_8X318_8X288_8X298_8X028 = 8X078 
Rem PRVLG 

CTRLJ'8X308_8X288_8X298_STS_TRANSITIONJ ? LG = CTRL_W8X308_8X2883X29@_STS_TRANSITION_FLG + 1 
GoTo BOX J 

B0X.5: 
Rem PRVLG 

If CTRL W8X308 @X288_8X298_STS_JRANS I T I ONJFLGJ „ 
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= CTRLJ'@%30OX28O%29@_STS - TRANSIT10N_FLG_PP Then 

G0T0 B03L6 
End If 

G0T0 B0X_7 

BOX J: 
Rem PRVLG 

CTRL3@^30O^31O«28@_@^29O^02O0TJ r ALIDJLG = True 
G0T0 BOX J 

BOX J: 
Rem PRVLG 

CTRLJTOX30MX29«JNG.JLG = True 
G0T0 BOX J 

BOX.E: 
End Sub 

Rem *** PRCEND 
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Option Explicit 
Rem #DEFPUB 
Rem PUB4N4 

Private W@X30O*3 10*280*290X02® As @X23@ 
Rem PUBIN4 

Private ff@X305OX3 150*2850X2950X200® As @%235© 
Rem PUB5C4 

Private CTRLJJ@X30OX28O*29OTSJTRANSm0N_FLG As Integer 
Rem PUB5Y4 

Private CTRLJ'@SB30@_@»28M9529§JTS_TRANSIT10N_FLGJ As Integer 
Rem PUB5B4 

Private CTRLJ§X30«JX28MX298_STSJRANS1TIONJLGJP As Integer 
Rem PUB6F4 

Private CTRLJfr8X30O*31OX28OX29OXG2O0TjrALIDJ 7 LG As Boolean 
Rem 5DEFEND 
Rem PUB4B4 

Private V@%300@.§%3 1 00*2800*290© _§X200§ As @%23@ 
Rem PUB4N3 

Private W3_@*3lO*28O*29O*02@ As Integer 
Rem PUB4N2 

' Private W2_@X3 10*280*290*020 As @X23@ 
Rem #DEFPRV 
Rem PRV2T4 

Private W@X30OX31O*28O*29OX02Ok As 0X238 
Rem PRV7R4 

Private CTRL_W@X30@_@*29@JNG_FLG As Boolean 
Rem *PUBKU 

Private CNSJWTJCMLString As String 
Private CNS_NOT_KUH_Integer As Integer 
Private CNSJiOTJOJH_Boolean As Boolean 
Private CNSJ10TJttJH_Long As Long 
Private CNS_NOTJOJ1LS ingle As Single 
Private CNS_NOT_KUHJ)ouble As Double 
Private CNSJ10TJCUH_Variant As Variant 
Private CNS_NOT_KUH_Currency As Currency 
Private CNSJTOTJOIHJyte As Byte 
Private CNSJOTJCUHJate As Date 
Rem SPRV2M 

0x1720 

Rem $PRV2E4 
Rem SPRV4W4 
6X1829 
Rem $PRV4E4 
Rem #DEFEND 
Public Sub MainO 

Rem tVECREP Private Sub LOX310_0X280_0X290_0XO20JXO7OO 
BOXJ : 
Rem PRVLG 

If MX3O0_0X310_0X280_0X290_0XO20 = CNS_NOTJOJO*23® And _ 
Rem PRVLG 

W3_§X31OX28OX29O»02§ = 0X070 Then 
GoTo B0X.2 
End If 
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G0T0 BOO ~~ : 

B0X_2: 
Rem PUB IN 

If W«%3O5M*315§JX285«_W295«_«MOO0 = CNSJ10TJCUHJX235§ Then Go To Box_3 
Rem PRVLG 

mm 

BOX J : 
Rem PRVLG 

If W@*30O$31O%28O*29O*02®j»k O CNS_N0TJOJH_@*23@ Then 

G0T0 B0X_4 
End If 

G0T0 B03L5 

B0X^4: 
Rem PRVLG 

W§X30^*3 10*280*290*02® = W@%30O*3IO*28OX29OX02@_wk 
Rem PRVLG 

CTRLJ«X30§^«X28«_§X29«_STSJRANS1TIONJLG = CTRL_W@X30@_@X28O«29i_STSJRANSITI0N_FLG + 1 
GoTo BOO 

BOX J: 
Rem PRVLG 

I f CTRL J@X30O*28OX29@_STSjrRANSlTI0N _FLG_P 

= CTRLJ'W30iJX28MX29§.STS_TRANSITIONJ ? LG_PP Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

B0X_6: 
Rem PRMG 

CTRL_W§X30i_@X31§_§X28OX29M3£02@_N0T„VALIDJLG = True 
GoTo BOO 

B0X_7 : 
Rem PRVLG 

CTRL30*3OO*29@JNG_FLG = True 
GoTo B0X_E 

BOO : 
End Sub 

Rem *** PRCEND 
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lOption Explicit 
Rem #DEFPUB 
Rem PUB4N3 

Private W0X3O0_0X31©_6X280_0X298_0XO20 (0X268, 8X278) As Integer 
Rem PUBIN3 

Private W8X3O50_0X3158_0X2850_0X2950_0X2OO0 (0X2650, 0X2750) As 8X2350 
Rem PUB5C3 

Private CTRLJ'«X30«JM8e_t«29^STSJ , RANSlTI0NJ ? LG As Integer 
Rem PUB5Y3 

Private CTRLJ§X308^W28§JX29«_STS„TRANSIT10NJ ? LGJ As Integer 
Rem PUB5B3 

Private CTRL_MX30MX289_«X298JTS_TRANSITI0NJLGJP As Integer 
Rem PUB6F3 

Private CTRLJT8X 3 08_8X318_8X288_8X2 9@_@%0 28_N0T.VAL I D_FLG (8X268. 8X278) As Boolean 
Rem #DEFEND 
Rem #DEFPRV 
Rem PRV2T3 

Private 8X308_8X 3 18_§X288_8% 2 98.8X0 2@j»k (8X260. 8X278) As Integer 
Rem PRV7R3 

Private CTRL_W8X308_8X298_INGJ f LG As Boolean 
Rem PUBKU 

Private CNSJlOTJKUHJnleger As Integer 
I Private Gyou as Integer 

Private Retu as Integer 

Private Uti_Cnt as Integer 

Private Soto_Cnt as Integer 

Private UtiJIax as Integer 

Private Sotojfax as Integer 
Rem $PRV2W3 
8X1628 
Rem SPRV2E3 
Rem $PRY4W3 
8X1658 
Rem $PRV4E3 
Rem #DEFEND 

Public Sub MainO 

Rem #VECREP Private Sub L3_0X310_0X280_8X290_8XO20 0 

Gyou = 0 

Retu = 0 
Rem PRVLG 

if 8X34@ < 8X350 then 
Rem PRVLG 

UtiJIax = 0X260 

Rem PRVLG 

SotoJIax = 0X278 

End If 
Rem PRVLG 

If 8X340 > 0X358 then 
Rem PRVLG 

UtiJIax = 0X270 

Rem PRVLG 

SotoJIax - 0X260 

End IF 
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UtLCnt = 0 
Soto^Cnt = 0 
Do Until Soto_Cnt = SoloJIax + 1 
UtLCnt = 0 
Rem PRVLG 

If 8*34® < 8S356 then 
Gyou = UtLCnt 
Retu = Soto^Cnt 
End If 
Rem PRVLG 

If 8X34® > 8*358 then 
Gyou = Soto_Cnt 
Retu = UtLCnt 
End If 

Do Until UtLCnt = UtLMax + 1 
B0X_1: 
Rem PRVLG 

If ff@%30@_@»31O^28@_@X29O«02@ (Gyou, Retu) = CNS_NOT_KUH_Integer Then 

GoTo B0X_2 
End If 

GoTo BOX„E 

B0X_2: 
Rem PRVLG 

8*16® 
Rem PRVLG 

W8*30@_8*318_e*28®_®5!529e_8*02®_wk = 8*07® 
B0X_3: 
Rem PRVLG 

If W@*30@_@%3i@_@*28@_@*29@_@*028_wk (Gyou. Retu) O CNS_N0TJOJHJnteger Then 

GoTo B0]L4 
End If 

GoTo B0X_5 

B0X_4: 
Rem PRVLG 

W@X30@_®*3 1 @_®*28®_@K29®_@K02@ (Gyou, Re tu) = W@*30@_@X3 l@_@S28@_®*29@_8*02@„wk (Gyou. Re tu) 
Rem PRVLG 

CTRL_W@X30O*28O«29OTS_TRANSITI0NJLG = CTRL_W@«30O^28O5529^STS„TRANSITI0N_FLG + I 
GoTo BOXJ 

B0X_5: 
Rem PRVLG 

I f CTRL_W8«30O»28OX298_STS_TIL\NSITI0NJLG_P 
= CTRL_W^308^28O«29^STS_TRANSITI0NJLG^PP Then 

GoTo B0X_6 
End If 

GoTo BOO 

B0X_6: 
Rem PRVLG 

CTRL_ff@X30O*31@_@X28@_@X298_8X02O0T_.VALID_FLG (Gyou. Retu) = True 
GoTo BOXJ 

B0X.7: 
Rem PRVLG 

CTRL_W@S3G8_@S29@_INGJ ? LG = True 
GoTo B0X_E 
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B0X_E: 
Rem PRVLG 



Rem PRVLG 



UtLCnt = UtLCnt + 1 

If @%34@ < mm then 
Gyou = UtLCnt 
Retu = Solo_Cnl 

End If 



If @%34@ > @%35@ then 
Gyou = Solo_Cnt 
Retu = UtLCnt 
End If 

Loop 

Soto_Cnt = Soto_Cnt + 1 
Rem PRVLG 

If @*34@ < @S35@ then 
Gyou = UtLCnt 
Retu = Soto^Cnt 
End If 
Rem PRVLG 

If @K348 > @%35@ then 
Gyou = Soto_Cnt 
Retu = UtLCnt 
End If 
Loop 

Gyou = 0 
Retu = 0 
UtLCnt = 0 
Soto_Cnt = 0 

Utijiax = 0 
SotoJIax = 0 
End Sub 

Rem *** PRCEND 
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Option Explicit 
Rem #DEFPUB 
Rem PUB4N4 

Private W8X308JX318_8X288_8X298_8X028 (8X268. 8X278) As 8X238 
Rem PUBIN4 

Private ff8X3058_8X315@_8X2858_@X2958_8X2008 (8X2658. 8X2758) As 8X2358 
Rem PUB5C4 

Private CTRLJ©X30MX28i_i%298 - STS_TRANSITI0NJ ? LG As Integer 
Rem PUB5Y4 

Private CTRLJ@*30O%28O»29@_STS_TRANSITI0N^FLG_P As Integer 
Rem PUB5B4 

Private CTRLJW30MX28M5S29©JTS_TRANSITI0HJLGJP As Integer 
Rem PUB6F4 

Private CTRL3©X3Oi_«»3IM*280^X29@„©XO2OOT_VALID_FLG (69526®. 8X278) As Boolean 
Rem #DEFEND 

Rem PUB4B4 

Private W@X3008__8X3108_@X2808_8X2908_8X200@ (8X268, 8X278) As 8X238 
Rem PUB4N3 

Private ff3i@X318__8X288_8X298_8X028 (8X268, 8X278) As Integer 
Rem PUB4N2 

' Private fl'2_8X318_8X288_8X298_8X028 (8X268, 8X278) As 8X238 
Rem SDEFPRY 

Rem PRV2T4 

Private W8X308_8X318_8X288_8X298_8X028_wk (8X268, 8X278) As 8X238 
Rem PRV7R4 

Private CTRL_W@X308_8X298JNG_FLG As Boolean 
Rem *Pt)BKl) 

Private CNS_NOT_KUILString As Siring 

Private CNS_NOT_KUHJnteger As Integer 

Private CNSJWTJUJHJBoolean As Boolean 

Private CNSJWTJOJH_Long As Long 

Private CNSJIOTJOfflLS ingle As Single 

Private CNS_NOTJ(UHJ)ouble As Double 

Private CNSJNOTJKfflLVariant As Variant 

Private CNSJWTJCUH_Currency As Currency 

Private CNS_NOTJCUH_Byte As Byte 

Private CNS_NOT_KUHJ)ate As Date 

Private Gyou as Integer 

Private Retu as Integer 

Private Uti_Cnt as Integer 

Private Soto_Cnt as Integer 

Private Uti_Max as Integer 

Private SotoJIax as Integer 
Rem $PRV2W4 
8X1728 
Rem SPRV2E4 
Rem SPRV4W4 
8X1828 
Rem $PRV4E4 
Rem #DEFEND 

Public Sub MainO 

Rem SVECREP Private Sub L4,8X30e_eX3 18_8X288_8X29@_8X028 Q 
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Gyou = 0 

Retu = 0 
Rem PRVLG 

If @X34@ < @%35@ then 
Rem PRVLG 

Utijlax = @K26@ 

Rem PRVLG 

Sotojiax = @*27@ 

End If 
Rem PRVLG 

If 8S34@ > 8*35® then 
Rem PRVLG 

Utijlax = ®%2W 

Rem PRVLG 

Sotojiax = @%26@ 
End If 
UU_Cnt = 0 
Soto_Cnt = 0 
Do Until Soto.Cnt = Sotojiax + 1 
UtLCnt = 0 
Rem PRVLG 

If @S34@ < @*35@ then 
Gyou = UtLCnt 
Retu = Soto_Cnt 
End If 
Rem PRVLG 

If @*34@ > @%35§ then 
Gyou = Soto^Cnt 
Retu = UtLCnt 
End If 

Do Until Uli.Cnt = Utijlax + 1 
BOX_I : 
Rem PRVLG 

If ff@*30O*31O*28O%29O*02@ (Gyou, Retu) = CNSJJ0TJttJH_8S23@ And . 
Rem PRVLG 

W3_§X31O*28O«29O^02@ (Gyou, Retu) = @S078 Then 
G0T0 BOXJ 
End If 

G0T0 BOX_E 

B0X_2: 
Rem PUB IN 

If W@X305OK315O*285O*295OS20G@ (Gyou, Retu) = CNSJK)TJOJH_@*235@ Then Go To Box_3 
Rem PRVLG 

mm 

B0X_3 : 
Rem PRVLG 

If W@%30OX31OX28@_@9529@_@X02Ok (Gyou. Retu) O CNS_NOTJCUO*230 Then 

G0T0 BOXjl 
End If 

G0T0 B0X_5 

B0X_4: 
Rem PRVLG 

ft®%30Q%3 lQ%28Q_@S29O*02@ (Gyou, Retu) = ffe%300X3ie_^280%29@_@%02Q^wk(Gyou, Retu) 
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iRem PRVLG 

CTRLJ@»30O^28OX29@^STS^TRANSIT10NJLG = CTRLjeSg30OX28ejX29§.STS„TRANSITI0N_FLG 4 1 
GoTo BOXJS 

BOX .5: 
IRem PRVLG 

I f CTRL J§X30§JX28§_§S529§_STS_TRANSITION JLG.P 
= CTRLJ , §%30§JX28§JX29«.STSJRANSITIONJ f LGJ > P Then 

GoTo B0JL6 
End If 

GoTo B0X_7 

B0X_6: 
IRem PRVLG 

CTRLJ^300*310^28@_@»290X0200TJ'ALID„FLG(Gyou. Retu) = True 
GoTo BOX_E 

B0X_7: 
IRem PRVLG 

CTRL_W®%30OX29«JNGJLG = True 
GoTo BOX.E 

BOX J: 

Utijnt = UtLCnt + 1 

IRem PRVLG 

I f @*34@ < @%35@ then 
Gyou = UtLCnt 
Retu = Soto_Cnt 
End If 

IRem PRVLG 

If @%34@ > @%35@ then 
Gyou = Soto_Cnt 
Retu = UtLCnt 
End If 

Loop 

Soto_Cnt = Soto_Cnt + 1 
IRem PRVLG 

If @%34@ < mm then 
Gyou = UtLCnt 
Retu = Soto_Cnt 
End If 
IRem PRVLG 

If @X34@ > @K35@ then 
Gyou = Soto_Cnt 
Retu = Uti.Cnt 
End If 
Loop 

Gyou = 0 
Retu = 0 
Uti.Cnt = 0 
Soto_Cnt = 0 
UtiJIax = 0 
Soto_Max - 0 
|End Sub 
Rem *** PRCEND 
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M/aj^/^m/^ffiS^T^^CDL 3 (g31#^0 3 5 0- 1) 

Option Explicit 
Rem SDEFPUB 
Rem PUB4N3 

Private W@^30@„@X31O^28O3529@_^02@(@»26@,©SB27@) As Integer 
Rem PUBIN3 

Private W©%305O^315O«285OX295@_@*200@(@%265@, ©X2758) As 8*235@ 
Rem PUB5C3 

Private CTRL3*@»30OX28O»29@_STS_TRANSlTI0N_FLG As Integer 
Rem PUB5Y3 

Private CTRLJ'@%30O«28O^29@ - STS_TRANSITI0N_FLG_P As Integer 
Rem PUB5B3 

Private CTRLJ@5530O»28O*29@JTS_TRANSIT10N_FLG - PP As Integer 
Rem PUB6F3 

Private CTRL3^30O»31OX28O^29O*02@J0TJ r ALIDJLG (@%26@. @%27§) As Boolean 
Rem SDEFEND 
Rem #DEFPRV 
Rem PRV2T3 

Private W@fc30OX3IOK28O*29O*02Ok@^@(@*26& @*27@) As Integer 
Rem PRV7R3 

Private CTRL_ff@*30@_@*298JNGJ 7 LG As Boolean 
Rem PUBKU 

Private CNSJWTJttJILInteger As Integer 
Private Gyou as Integer 
Private Retu as Integer 
Private Uti_Cnt as Integer 
Private Soto_Cnt as Integer 
Private Utijlax as Integer 
Private SotoJIax as Integer 
Rem $PRV2W3 

mm 

Rem SPRV2E3 
Rem SPRV4W3 

mm 

Rem $PRV4E3 
Rem #DEFEND 
Public Sub MainO 

Rem #VECREP Private Sub L3_@*3 10*280*290*020 0 

Gyou = 0 

Retu = 0 
Rem PRVLG 

I f @S34@ < 0*35® then 
Rem PRVLG 

l)ti_Max = @*26@ 

Rem PRVLG 

SotoJIax = @*278 

End If 
Rem PRVLG 

if 8*34@ > @*35@ then 
Rem PRVLG 

UtiJIax = @*27@ 

Rem PRVLG 

SotoJIax = @*26@ 
End If 
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UtLCnt » 0 
Soto_Cnt = 0 
Do Until Soto_Cnt = Sotojlax + 1 
UlLCnt = 0 
(Rem PRVLG 

If @%348 < @*35@ then 
Gyou = UtLCnt 
Retu = Solo_Cnl 
End H 
IRem PRVLG 

If @*34@ > @*35@ then 
Gyou = Soto_Cnt 
Retu = UtLCnl 
End If 

Do Until UtLCnt = UtiJIax + 1 
BOX J : 
IRem PRVLG 

If W@S30O*3tO*28O*29O*02@ (Gyou, Retu) = CNSJJOTJCUHJnleger Then 

GoTo BOXJ 
End If 

GoTo B0X_E 

B0X_2 : 
IRem PRVLG 



BOX J: 
IRem PUBL3F 

If W@X30O*31O*28O*29O*02Ok@*07@ (Gyou, Retu) = 1 Then GoTo B0X.4 
GoTo B0X_5 

B0X_4 : 
IRem PUBL3F 

If W@»30O^31O«28O»29@_@X02@_wk@X07@ (Gyou. Retu) = 1 
Then ff@*30O*3 10*280*290*02® (Gyou. Retu) = @*07@ 

IRem PRVLG 

CTRL_W@*30O*28O*29@3TSJRANSITI0N_FLG = CTRL^W@*30O*28O*29OTS„TRANSITI0N_FLG 4 1 
GoTo B03LE 

B0X_5 : 
IRem PRVLG 

I f CTRL3'@*30O*28O%29@„STS_TRANSlT10N_FLG_P 
= CTRL_W@*30O*28O»29@_STS^TRANSITI0N_FLGJP Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

B0X_6 : 
IRem PRVLG 

CTRL_W@9S30O*31O*28O*29O*02@_N0T_VALID_FLG (Gyou. Retu) = True 
GoTo BOXJ 

B0X_7 : 
IRem PRVLG 

CTRL_ff@*3OO*290JNG_FLG = True 
GoTo BOX J 

BOX J: 

UtLCnt = UtLCnt + 1 
IRem PRVLG 
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Rem PRVLG 



If @%348 < @X350 then 
Gyou = UtLCnt 
Relu = Soto_Cnt 

End If 



If @*34@ > @%35@ then 
Gyou = Solo_Cnt 
Retu = UtLCnt 
End If 

Loop 

Soto_Cnt = Soto^Cnt + I 
Rem PRVLG 

If @*34@ < @S358 then 
Gyou = UtLCnt 
Retu = Soto^Cnt 
End If 
Rem PRVLG 

If ©%34@ > @*35® then 
Gyou = Soto_Cnt 
Retu = UtLCnt 
End If 
Loop 

Gyou = 0 
Retu = 0 
UtLCnt = 0 
Soto_Cnt = 0 
UtiJIax = 0 
Sotojfax = 0 
End Sub 

Rem *** PRCEND 
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Option Explicit 
Rem #DEFPUB 
Rem PUB4N4 

Privale W0X3O0_0X31®_®X28@_®*29©_®XO2@ (0X260. 0X270) As @%23@ 
Rem PUB1N4 

Private W0X3O50_0X3150_0X2850_0X2950_0X2OO0 (0X2650. 0X2750) As 0X2350 
Rem PUB5C4 

Private CTRL_WW30§JX28e.W29§_STS_TRANSlT10NJFLC As Integer 
Rem PUB5Y4 

Private CTRLJ«X30MX28§_.«X29®_STSJRANSITI0NJ ? LGJ As Integer 
Rem PUB5B4 

Private CTRLjm30O5K28O*29@^STS_TRANSITI0N_FLG_PP As Integer 
Rem PUB6F4 

Private CTRU^30O»31O*28OX29O*02«_K0T_VALIDJFLG(®*266. 6X276) As Boolean 
Rem SDEFEND 
Rem PUB4B4 

Private ff8X3OO®_0X31O®_®X28O@_0X29O®_0X2OO® (0X26®, 0X270) As 6X230 
Rem PUB4N3 

Private W3_0X310_0X280_0X290_0XO20 (0X260, 0X270) As Integer 
Rem PUB4N2 

Private W2_0X310_0X28@_0X290_0XO2® (0X260, 0X270) As 0X230 
Rem SDEFPRV 
Rem PRV2T4 

Private W0X3O0_0X310_OX280JX290_0XO20_wk (0X26®, 0X270) As 0X230 
Rem PRV7R4 

Private CTRLJ0X3O0_0X290_INGJLG As Boolean 
Rem *PUBKU 

Private CNS_NOT_KUH_String As String 
Private CNSJOTJOJHJnteger As Integer 
Private CNS_NOT_KUH_Boolean As Boolean 
Private CNS_N0TJOJH_Long As Long 
Private CNSJWTJCMLS ingle As Single 
Private CNSJTOTJOJOouble As Double 
Private CNS_NOT_KUH.Variant As Variant 
Privale CNS_NOT„KUHJurrency As Currency 
Private CNSJlOTJOIHJByte As Byte 
Private CNS_NOT_KUH_Date As Date 
Private Gyou as Integer 
Private Retu as Integer 
Private Uti_Cnt as Integer 
Private Soto_Cnt as Integer 
Private Utijlax as Integer 
Private SotoJIax as Integer 
Rem $PRV2W4 
0X1720 
Rem SPRV2E4 
Rem SPRV4W4 
0X182® 
Rem $PRV4E4 
Rem #DEFEND 
Public Sub MainO 

Rem SVECREP Private Sub L4_0X31@_@X280_®X290_@XO2®__@XO7® 0 

Gyou = 0 
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I Retu = 0 
Rem PRVLG 

If @X34@ < @%35@ then 
Rem PRVLG 

UtiJIax = ©%26@ 

Rem PRVLG 

soto_Max = mn 

End If 
Rem PRVLG 

If @%34® > 0X358 then 
Rem PRVLG 

Uti^Max = @%27@ 

Rem PRVLG 

SotoJIax = @X26@ 
End If 
UtLCnt = 0 
Soto_Cnt = 0 
Do Until Soto_Cnt = SotoJIax + 1 
UtLCnt = 0 
Rem PRVLG 

If 8X34@ < @X35@ then 
Gyou = UtLCnt 
Retu = Soto_Cnt 
End If 
Rem PRVLG 

If @X34@ > mm then 
Gyou = Soto_Cnt 
Retu = UtLCnt 
End If 

Do Until UtLCnt = Utijfax + I 
BOXJ: 
Rem PRVLG 

If «30OX31OX28OX29OX02@ (Gyou, Retu) = CNS_NOTJOJOX23@ And _ 
Rem PRVLG 

W3_8X3 10X280*290*028 (Gyou. Retu) = 8X07® Then 
GoTo B0X_2 
End If 

GoTo BOX_E 

B0X_2: 
Rem PUB IN 

If W8X3058_@X3158_JX285O*2958_8X200@ (Gyou, Retu) = CNS_NOTJOJOX2358 Then Go To Box_3 
Rem PRVLG 

8X178 
B0X_3: 
Rem PRVLG 

If W8X3O8_8X318_@X288_8X298_0XO28jvk (Gyou, Retu) O CNS_NOTJOJO*238 Then 

GoTo B0X_4 
End If 

GoTo B0X_5 

BOXjl: 
Rem PRVLG 

W8X3Q8_8X3 10X280X290X02® (Gyou. Retu) = ff@X30O*318_8*28e_8*298_@X02§_wk (Gyou, Retu) 
Rem PRVLG 
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I CTRLJ@SK30O»28OX29@_STS_TRANSITI0N_FLG = CTRLJ"§X30ejX28MX29«_STSJRANSITI0NJLG + 1 
GoTo B0X_E 

B0X_5: 
Rem PRVLG 

If CTRLJ'§X308JX28M«2MJTS_TRANSITIONJLGJ > 
= CTRLjeX30«_«X28OX29i^STS_TRANSITI0NJLGJPP Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

BOX Jr. 
Rem PRVLG 

CTRLJ^30@_@«3IO»280»290«0200TJ , ALID_FLG(Gyou l Relu) = True 
GoTo BOXJE 

B03L7: 
Rem PRVLG 

CTRL_W§as30O5629i_INGJLG = True 
GoTo B0X_E 

B0X_E: 

Uti_Cnt = Utijnt + I 

Rem PRVLG 

If mm < @%35@ then 

Gyou = UtLCnt 

Retu = Soto_Cnt 
End If 

Rem PRVLG 

If %%U% > @S35@ then 

Gyou = Soto_Cnt 

Retu = Uti_Cnt 
End If 

Loop 

Soto_Cnt = Solo_Cnt + 1 
Rem PRVLG 

If @K34@ < @%35@ then 
Gyou = Uti.Cnt 
Retu = Soto_Cnt 
End If 
Rem PRVLG 

If @%34@ > @%35@ then 
Gyou = Sotojnt 
Retu = UtLCnt 
End If 
Loop 
Gyou = 0 
Retu = 0 
Uti_Cnt = 0 
Soto_Cnt = 0 
UtiJIax = 0 
SotoJIax - 0 
End Sub 

Rem *** PRCEND 
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Hm-^? b)V<DM : 0 3 5-1 
A*7i7-feX^— OL 3 (ffi#^0 3 7 0-l) 



Option Explicit 
Rem 8DEFPUB 
IRem PUB4N3 

Private W@S30O*31O*28OS29@JN_ACCESSJCEY As Integer 
IRem PUB1N3 

Private ff@*305O*3 150*2850*2950*2008 As @*235@ 
IRem PUB5C3 

Private CTRL.VeX30«_§X28§_§X29»_STS.TRANSITIONJ J LG As Integer 
IRem PUB5Y3 

Private CTRL.*W30iJX28«.i5K29flJTSJRANSITIONJLGJ As Integer 
IRem PUB5B3 

Private CTRL_WtX30MX28MX29«JTS_TRANSlTIONJ r LG_PP As Integer 
IRem PUB6F3 

Private CTM,J§X30MX31§ - «X28§J%298JN^CCBSSJCEY.N0T_VALIDJ f LG As Boolean 
IRem tDEFEND 
Rem fflEPPRV 
IRem PRV2T3 

Private ff§X30§JSI531OSK28©_©X29©_INJVCCESSJKEY„wk©X07@ As Integer 
IRem PRV7R3 

Private CTRL_W@*30O*29@JNGJ f LG As Boolean 
IRem PUBKU 

Private CNSJJOTJOIHJnteger As Integer 
Private Gyou as Integer 
Private Retu as Integer 
Private Uti_Cnt as Integer 
Private Soto_Cnt as Integer 
Private UtiJIax as Integer 
Private Soto_Max as Integer 
IRem $PRV2W3 
pi 62© 
Rem $PRV2E3 
Rem $PRV4W3 
@%165@ 
Rem $PRV4E3 
[Rem SDEFEND 

Public Sub MainO 
|Rem &VECREP Private Sub L3_©X31OX28O*298JNJKXESS_KEY0 

B0X_1 : 
IRem PRVLG 

If W@S30O*31O*28O*29@JN_ACCESSJKEY = U% 30055310*280* 2 9@_IN_ACCESS_KEY Then 

GoTo B0JL2 
End If 

GoTo BOO 

B0X_2: 
IRem PRVLG 



BOX J : 
IRem PUBL3F 

If W8X30O*3 10*280*290 JN_ACCESS_KEY_wk@*07@ = 1 Then GoTo B0X_4 
GoTo B0X_5 

B0X_4: 
IRem PUBL3F 

If ffQ*30Q*31O*28O%29QJNJtCCESSJCEYjgk©*07Q ■ 1 T 
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{^-±^2 h)V<DM : 0 3 5 -2 

AftT^HX^-tDL 3 (gl#f 0 3 7 0-2) . 

hen %m30@_@«31O»28O^29@„]N_ACCESS_KEY = @%07@ 

Rem PRVLG 

CTRL_WeX30@_@^28@^29@_STS_TRANSITI0NJLG = CTRL_W^30O»28O*29@_STS_TRANSITl0NJLG + 1 
GoTo B0X_E 

B0X_5 : 
Rem PRVLG 

I f CTRLjr@%30O*28O*29@_STS JTOSITIONJ^GJ* 
= CTRLjm30@_@»28O*29@^STS„TRANSITI0N - FLGJP Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

B0X_6 : 
Rem PRVLG 

CTRLjm30OSB31@_@^28OX29@_IN.ACCESS_KEY_N0T„VALlDJLG = True 
GoTo BOX_E 

B0X_7: 

Rem PRVLG 

CTRLJ*@%30O*29@_INGj?LG = True 

GoTo BOXJ 

BOX J: 
End Sub 
Rem *** PRCEND 
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h)V(DM : 0 3 6 - 1 

7<tl<&}£&fb3—<OL 3 (gjjffrEf 0 3 9 0- 1) _ 

lOption Explicit 
Rem SDEFPUB 
Rem PUB4N3 

Private W@nGO*310*28@_@S29©JNj:ondi tions.KEY As Integer 
Rem PUBIN3 

Private TO305O&3 150*2850*2950*2000 As @95235@ 
Rem PUB5C3 

Private CTRLJ"@5530O^28@ - @%29@_STS_TRANSITI0N^FLG As Integer 
Rem PUB5Y3 

Private CTRLjm30@_^28O»298^STSJRANSITI0N„FLG_P As Integer 
Rem PUB5B3 

Private CTRLjm30M»28O«29@_STS^TRANSlTI0N_FLG^PP As Integer 
Rem PUB6F3 

Private CTRL_W@X30O*3 io*280*29@_IN_Cond i t i ons_KEY_NOT_VALI DJIG As Boolean 
Rem SDEFEND 
Rem 3DEFPRV 
Rem PRV2T3 

Private W@SK300^310*28@_@^29@_IN - .Condi tions^KEY^wk^OT^ As Integer 
Rem PRV7R3 

Private CTRLJ"@*30O%29@JNG_FLG As Boolean 
Rem PUBKU 

Private CNSJiOTJOJHJnteger As Integer 
Rem SPRV2W3 
pi 62® 
Rem $PRV2E3 
Rem $PRV4W3 
©351656 
Rem $PRV4E3 
Rem SDEFEND 

Public Sub Main 0 

Rem #VECREP Private Sub L3_@*3 1 0*280*298 JNJ)ond i t ion s_KEY 0 
B0X_1: 
Rem PRVLG 

If W@*300*310*280*29@_IN_Conditions_KEY = W@S300*310*280*29@JN_Conditions_KEY 
Then 

GoTo B0X_2 
End If 

GoTo BOX_E 

B0X_2: 
Rem PRVLG 

@%m 

B0X_3: 
Rem PUBL3F 

If W@%300^310X280^29@_IN«Conditions^KEY_wk@X07@ = I Then GoTo B0X_4 
GoTo B0X_5 

B0X_4: 
Rem PUBL3F 

If W@%300353l0^28@^29@JNJonditions_KEY„wk@5507@ = 1 
Then W@S300*310*280*298JN_Conditions_KEY = @*07@ 
Rem PRVLG 

CTRLJ@%30O*28O*29§_STSjrRANSITI0N_FLG = CTRLJfr@*30O*28O*29OTS_TRANSITI0NJ 7 LG + 1 
GoTo BOXJ 

BOX J: . 
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118 6] 

Hm-±^<i7 h;U<7)gJ : 0 3 6-2 

A*«L«ftfl=*--<OL 3 (f»^ 0 3 9 0- 2) 



Rem PRVLG 

I f CTRL J*«X30MX28®_W29§JTS_TRANSITION JLGJ 
= CTRL3«X30§_iX28e_W29i_STS_TRANSIT10HJFLGJ?P Then 

GoTo B0XJ> 
End If 

GoTo B0X_7 

B0X_6: 
Rem PRVLG 

CTRL3@*30055310*2805K296_IN_Condilions^KEY_NOTJ'ALID_FLG = True 
GoTo BOXJ 

B0X.7: 
Rem PRVLG 

CTRLJteX30O*29ejNG_FLG = True 
GoTo BOO 

BOX J: 
End Sub 

Rem *** PRCEND 
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[§118 71 

hJKDS! : 0 3 7 -1 



Option Explicit 
Rem #DEFPUB 
iRem PUB4N3 

Private W«X30§_§X31«JX28MX29§_OUOCCESSJKEY As Integer 
IRem PUB1N3 

Private W8X305«J%315§JX285M*295GJX200§ As @%235@ 
IRem PUB5C3 

Private CTRLJ'©a530MX28«_«X29§JTSJRANSITIONJLG As Integer 
IRem PUB5Y3 

Private CTRL„W@»30§_e%28«„§X29@_STS_TRANSlT10NJLGJ As Integer 
IRem PUB5B3 

Private CTRLJ@HS30©_@X28©_iX29§_STS_TRANSITI0NJLG_PP As Integer 
IRem PUB6F3 

Private CTRLjm30O*3IO»28O^29OUT_ACCESS__KEY_N0TJ r ALIDJLG As Boolean 
IRem #DEFEND 
Rem SDEFPRV 
I Rem PRV2T3 

Private W§X30«_9X31©.©X28©JSI5298.OUTJiCCESSJKEYj»kW078 As Integer 
IRem PRV7R3 

Private CTRLJ'@*30O*29@_ING._FLG As Boolean 
IRem PUBKU 

Private CNSJiQTJttJHJnteger As Integer 
IRem $PRV2W3 

m\m 

Rem $PRV2E3 
Rem SPRV4W3 
@%165@ 
Rem $PRV4E3 
IRem #DEFEND 

Public Sub MainO 
|Rem #VECREP Private Sub L3J%31@J*280*290UTJttCESSJ(EY () 

BOX J : 
IRem PRVLG 

If V§J530iJX31«_§X28MSI529ejOTJlCCESSJCEY = W«X30«JX3 1MX288JX299 JUT JICCESS JOEY Then 

GoTo BOO 
End If 

GoTo BOX_E 

B0X_2: 
IRem PRVLG 

mm 

B03L3 : 
IRem PUBL3F 

If VflX30§JSi;31«JX28§JX29iJUT^ACCESSJffiY_wkiX07« = 1 Then GoTo B0X„4 
GoTo BOX J 

B0X_4: 
IRem PUBL3F 

If WW30MX31§JX28©JX29ejUOCCESSJDEY_wk«07§ = 1 
Then W«%30«JX318JX28«JX29§J0OCCESS_KEY = i*078 
IRem PRYLG 

CTRL_W@X30O»28O3529@JTS^TRANSIT10N_FLG = CTBLu.WW30fi_«X28§_eX29§_STS_TRANS]TI0NJFLG + 1 
GoTo BOXJ 

B0X_5: 
IRem PRVLG 
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[1188] 

f^-^:^i7 b)V<DM : 0 3 7 - 2 
iS^T^-trX^-OL 3 (fI#§0 4 10-2) 

I f CTRL J@S30O*28O*298_STS JTRANSITION_FLGJ> 
= CTRL_W^30@_@»28O*29@_STS.TRANSITI0NJLG_PP Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

B0X.6: 
Rem PRYLG 

CTRLJ@«30@_g»31O»28OX29OUT^ACCESS_KEY^N0TJ r ALID_FLG = True 
GoTo BOX J 

B0X_7: 
Rem PRVLG 

CTRLJ'@*30O*29@_ING_FLG = True 
GoTo BOXJ 

BOX_E: 
End Sub 

Rem *** PRCEND 
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im 1 8 9] 

tt©-:^^ h;VCDS! : 0 3 8 - 1 

BMl^-OL3 (ffil&^O 4 3 0- 1) 

Option Explicit 
Rem #DEFPUB 
Rein PUB4N3 

Private W@fc300*310*280*290lJTj:onditionsJ(EY As Integer 
Rem PUBIN3 

Private W@%305O*3 150*2850*2950*2000 As @%235@ 
Rem PUB5C3 

Private CTRL_ff^30O*28@_@»298„STS_TRANSITI0NJLG As Integer 
Rem PUB5Y3 

Private CTRL3^30O»28O«29@_STS_TRANSITI0N_FLG„P As Integer 
Rem PUB5B3 

Private CTRL_W@^30OX28O»29@_STS_TRANSITI0N_FLG_PP As Integer 
Rem PUB6F3 

Private CTRLjm300«310^28@_@X290lJT_Conditions_KEY.NOTJ , ALID_FLG As Boolean 
Rem 3DEFEND 
Rem #DEFPRY 
Rem PRV2T3 

Private W@SK3OO5531@_@^28O»290_OUT_Condi tions.KEY_wk@«07@ As Integer 
Rem PRY7R3 

Private CTRL_W©^30O«296^INGJLG As Boolean 
Rem PUBKU 

Private CNS_NOT_KUH_lnteger As Integer 
Rem $PRV2ff3 

m\m 

Rem $PRV2E3 
Rem $PRV4W3 

mm 

Rem SPRV4E3 
Rem #DEFEND 
Public Sub MainO 

Rem #VECREP Private Sub L33*3iO*280*290UTj:onditions_KEYO 
B0X_1 : 
Rem PRVLG 

If W@%300*310*280*290UTj;onditions_KEY = W@S300*310*280*290UT_Conditions_KEY 
Then 

GoTo B0X_2 
End If 

GoTo BOXJ 

B0X_2: 
Rem PRVLG 

mm 

BOX J : 
Rem PUBL3F 

If W@«300X310«280»290UT_Conditions_KEY_wm07@ = 1 Then GoTo B0X_4 
GoTo B0X_5 

B0X_4: 
Rem PUBL3F 

If W@%300X310*280X290UT^Condilions.KEY_wk§»07@ = 1 
Then W@*300*310*280*290UTj;onditionsJCEY = @X07@ 
Rem PRVLG 

CTRL_W@«30©^28^@X29@_STS^TRANSITION_FLG = CTRL3@X30@^28@_§«29@_STS_TRANSITIONJLG + 1 
GoTo BOX J 

BQX_5 : 
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fiMS-^i? h;KE>£! : 0 3 8-2 
ffi»ffla*#*-<BL3 (fltf 0 4 3 0-2) 



Rem PRVLG 

1 f CTRLjm30@_@^28O»29^STS_TRANSITI0NJLG_P 
= CTRLjeSB30OX28«JX29§JTS_TRANSITI0NJLGJ > P Then 

GoTo BOXJ 
End If 

GoTo BOXJ? 

BOO: 
Rem PRVLG 

CTRLJW30e.e»31i.«X28«_§X29«^OUTJondi t ionsJffiYJTOT.VALIDJLG = True 
GoTo B0X_E 

B0X_7 : 
Rem PRVLG 

CTRL_W6*3OO3290JNGJ?LG = True 

GoTo BOXJ 

BOXJ: 
End Sub 

Rem *** PRCEND 
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[HI 9 1] 

{^-±^2 bJKDSl : 0 3 9 -1 

A^J7>HQ1 2 (glif 0 4 5 0- 1) 

Option Explicit 
Rem SDEFPUB 
Rem PUB4N2 

Private CTR_@*3IO*28@_@*29@_I2_END As Boolean 
Rem PUB4N2 

Private CTR_§X31§_«28§JX29flJ2JNT As Integer 
Rem PUB4N2 

Private CTR_®H531@JX28@^eS529®_I2_ERR As Boolean 
Rem PUB4N2 

Private CTRJX31OX28«_8M9§J2J0F As Boolean 
Rem PUBIN2 

Private WiX3O5M%315M*285MX295§_0MOOa As 0X2359 
Rem PUB5C2 

Private CTRLJ«S530fl_«28«_§X298_STSJRANSlTIONJ ? LG As Integer 
Rem PUB5Y2 

Private CTRLWtX30§JM8»_W29§JTSJRANSITIONJLGJ > As Integer 
Rem PUB5B2 

Private CTRLJ@9530O«28@_@*29@_STS_TRANSITI0N_FLGJP As Integer 
Rem I 2AKYARA 
Rem I 2PKYARA 
Rem PUB6F2 

Private CTRLJ§X30«^31MX28i^fl%29e_eX02O0T - VALID_FLG As Boolean 
Rem SDEFEND 
Rem #DEFPRV 
Rem PRV7R2 

Private CTRL_W@X30OX29@JNG_FLG As Boolean 
Rem SPRV2W2 
§351528 
Rem $PRV2E2 
Rem $PRV4W2 
@X155@ 
Rem $PRV4E2 
Rem #DEFEND 
Public Sub MainO 

Rem 3VECREP Private Sub 12_«5318.§X28«_«X29®_W02«_§X07iO 
BOX J : 

Rem 1 2PKYKUU 

If @*50@ O «*07§ Then Exit Sub 
Rem I2AKYKUU 

If @X50@ O §X07@ Then Exit Sub 
B0X_2 : 
Rem PRVLG 

mm 

Rem PRVLG 

CTR_@X31@_@X280X29@J2_END = False 
Rem PRVLG 

CTR_@X31OX280_JX29@J2JRR = False 
BOX J: 
Rem PRVLG 

If CTMX310_§X28§_8X298J2JND = False Then 

GoTo B05L4 
End If 

GoTo B0X_5 
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m 1 9 2] 

h;UOgJ : 0 3 9 -2 
A^37>HOI2 (flS^04 5 0-2) 



B0X_4: 
[Rem PRVLG 

0*1538 
iRem PRVLG 

CT05S31@_8*288_@9S298J2_END = True 
IRem PRVLG 

CTRL3@%30@_§*28O*29@_STS„TRANSITI0NJLG = CTRLJ8X300^28@_@«29@_STS^TRANS1T10N_FLG + 1 
GoTo B0X_E 

BOX^S : 
IRem PRVLG 

If CTR_@%310*28@_@*29@J2JND = False Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

BOX J : 
IRem PRVLG 

CTR_8*31@_@K288_@S29@_I2_ERR = True 

IRem PRVLG 

CTRL_W6X30@_(l«31@_@SK28@_@X29O»02@_N0T^VALID.FLG = True 
GoTo BOX_E 

BOO: 
IRem PRVLG 

CTRLJ8«30OX29@_INGJLG = True 

GoTo BOX_E 

BOX J: 
|End Sub 
Rem *** PRCEND 
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[1193] 

ttB-lk^f b)U<DM : 0 4 0-1 

m^37>KOQ4 (gg## 04 6 0- 1) 

Option Explicit 
Rem SDEFPUB 
Rem PUB4N4 

Private CTRJ&3 1@J&28® J&2904JND As Boolean 
Rem PUB4N4 

Private CTR_@*310*28@_@*29@J)4j:NT As Integer 
Rem PUB4N4 

Private CTR_miOS28@_8*29@_04_ERR As Boolean 
Rem PUBIN4 

Private W@fc305O*315O*285O*295@_@S200§ As @X235@ 
Rem PUB5C4 

Private CTRL3@%30@_@«28O»29@_STS_TRANSITI0NJLG As Integer 
Rem PUB5Y4 

Private CTRL_W^30OX28O^29^STS_TRANSITI0NJLG_P As Integer 
Rem PUB5B4 

Private CTRL_ff@%30O«28O*29@„STS_TRANSIT10N_FLG_PP As Integer 
Rem 04AKYARA 
Rem 04PKYARA 
Rem PUB6F4 

Private CTRLJ'@%30@_@^31@_@»28@_@»29O3602@_N0TJ , ALIDJLG As Boolean 
Rem SDEFEND 
Rem #DEFPRV 
Rem PRV7R4 

Private CTRLJft*30O*29@JNG_FLG As Boolean 
Rem $PRV2R 

mm® 

Rem $PRV2E4 
Rem $PRV4W4 
6X1823 
Rem $PRV4E4 
Rem SDEFEND 
Public Sub MainO 

Rem JtVECREP Private Sub 04_^ 10*280*290*020*07® 0 
B0X_1: 

Rem 04AKYKUU 

If %%m O ®*07@ Then Exit Sub 
Rem 04PKYKUU 

If @*50@ O @*07@ Tben Exit Sub 
B0X_2: 
Rem PRVLG 

Rem PRVLG 

CTR_@*31O*28O*290_O4_END = False 
Rem PRVLG 

CTR_@*31O*28O*29@_04_ERR = False 
B0X_3 : 
Rem PRVLG 

If CTR_@S310*280*29@J)4_END = False Then 

GoTo B03L4 
End If 

GoTo B0X_5 

B0X_4: 
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[HI 9 4] 

hJKDM : 0 4 0-2 

ttj;ft:3V> K<PQ4 (gl#§0 4 6 0-2) 

Rem PRVLG 

§S153§ 
Rem PRVLG 

CTR_8*31@_@%280*29@J)4_END = True 
Rem PRYLG 

CTRL_W^30O»28@^29@^STS.TRANSITI0N_FLG = CTRLjm30@_@«28O*29@_STS_TRANSITI0N..FLG + 1 
GoTo BOX J 

B0X_5 : 
Rem PRVLG 

If CTR_@!mO*280*2904_END = False Then 

GoTo BOXJ 
End If 
GoTo B0X_7 

B0X_6 : 
Rem PRVLG 

CTI0._W@SK30OX31OX28O^29@_@»02O0TJ ; ALID_FLG = True 
Rem PRVLG 

CTR_@S31@_@S280*29@J)4_ERR = True 
GoTo BOXJE 

B0X_7; 
Rem PRVLG 

CTRL3@S3OOK290_ING.JLG = True 
GoTo BOX_E 

BOX_E: 
End Sub 

Rem *** PRCEND 
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[1195] 

tttik-&'<9 h)V(DM : 0 4 1-1 

31gg<DR4 (gfjffir^O 4 7 0 - 1) 

Option Explicit 
Rem #DEFPUB 
Rem PUB5C4 

Private CTRLjeX30IJ%28§JX29e_STS_TRANSITIONJPLG As Integer 
Rem PUB5Y4 

Private CTRLW©X30@_§X28@_§X29e_STS_TRANSITION_FLGJ As Integer 
Rem PUB5B4 

Private CTRL_ff@*30@_^28@^29@_STS^TRANSITIONJLG_PP As Integer 
Rem PUB6F4 

Private CTRLJ@5K30Oa531O^28OX29O%02O0TJ , ALIDJLG As Boolean 
Rem #DEFEND 
Rem SDEFPRV 
Rem *PUBRT 

Private CTR_NEXT_PALLET_I OEW As String 
Rem PRV7R4 

Private CTRL_W©X30OX29§^INGJLG As Boolean 
Rem PUBKU 

Private CNS_N0TJO)H_String As String 
Rem IPRV2W4 
@K172@ 
Rem $PRV2E4 
Rem $PRV4W4 

mm 

Rem SPRV4E4 
Rem #DEFEND 
Public Sub MainO 

Rem #VECREP Private Sub R4_@S3 10*280*290*02® 0 
B0X_1: 
Rem PRVLG 

If CTR JIEXOALLETJ D _NEW = CNS_NOT_KUH„S t r i ng Then 

GoTo B0X_2 
End If 

GoTo BOX_E 

B0X_2 : 
Rem PRVLG 

CTR_NEXT_PALLET_IDJIEW = *@*100@* 

B0X_3: 
Rem PRVLG 

I f CTR„NEXTJ>ALLET_I D_NEW O CNSJJOT JOJILS t r i ng Then 

GoTo B0X_4 
End If 

GoTo B0X_5 

BQJL4: 
Rem PRVLG 

CTR_NEXT_PALLET_I D_NEW = CTR_NEXT_PALLET_ID_NEW 
GoTo BOX_E 

BOX _5: 
Rem PRVLG 

If CTR_NEXT_PALLETJD_NEW = CNS_NOTJttJH_String Then 

GoTo B0X_6 
End If 

GoTo B0X.J 

BOO : 
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[il 96] 

hMi : 0 4 1-2 

^g£<DR4 (fltf 0 4 7 0-2) 
Rem PRVLG 

CTRL_W§X30e_IX31l_SJ528#_eX29MX02O0T_VALIDJ ? LG = True 
GoTo B0X_E 

B0X_7 : 
Rem PRVLG 

CTRL_W@%30@_@%29@_ING_FLG = True 
GoTo B0X_E 

B0X_E : 
End Sub 

Rem *** PRCEND 
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Option Explici t 
Rem #DEFPUB 
Rem PUB5C2 

Private CTRLJ@%30@_@X28O%29@_STS_TRANSITI0N_FLG As Integer 
Rem PUB5Y2 

Private CTRLJ'@5K30O^28O*29@_STS_TRANSIT10NJLG_P As Integer 
Rem PUB5B2 

Private CTRLJ*@X30@_@X28@_@X29@ - STS^TRANSITION^FLGJP As Integer 
Rem PUB6F2 

Private CTRL_W@«30O*3}O^28@_@^29OX02O0T_VALIDJLG As Boolean 
Rem #DEFEND 
Rem ffDEFPRV 
Rem *PUBRT 

Private CTR_NEXT_PALLET_I D_NEft As String 
Rem PRV7R2 

Private CTRLJ"8*30@_@*29@_ING_FLG As Boolean 
Rem PUBKU 

Private CNS_NOT_KUH_Slring As String 
Rem $PRV2ff2 
@S152@ 
Rem $PRV2E2 
Rem $PRV4W2 

Rem $PRV4E2 
Rem #DEFEND 
Public Sub MainO 

Rem #VECREP Private Sub R2C_@*31O*28OS29§_@%02@0 
B0X_1: 
Rem PRVLG 

If CTR_NEXTJ>ALLETJD_NEW = CNSJWTJOJILString Then 

GoTo B0X_2 
End If 

GoTo B0X_E 

BOO: 
Rem PRVLG 

Rem PRVLG 

CTR_NEXT _P ALLET_I D_NEW = *@S1008* 
B0X_3 : 
Rem PRVLG 

If CTR_NEXTJ>ALLETJD_NEK O CNS_NOT_KUH_String Then 

GoTo B0X_4 
End If 

GoTo B0X_5 

B0X_4 : 
Rem PRVLG 

§351530 
Rem PRVLG 

CTRJJEXT_PALLEL_I D_NEW = CTRJ*EXTJPALLET_I D JJEW 
GoTo BOO 

B0X_5: 
Rem PRVLG 

If CTR,NEXTJ»ALLETJD_.NEW = CNS JWT JQJ1LS t r i ng Then 
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GoTo BOXJ 
End If 

GoTo B0X_7 

BOX J : 
Rem PRYLG 

CTRL_W@»30O%31O*28O%29O%02O0TJ r .\LlDJLG = True 
GoTo BOXJ 

B0X_7 : 
Rem PRVLG 

CTRLje%300X299.ING.FLG = True 
GoTo BOXJ 

BOXJ: 
End Sub 

Rem *** PRCEND 
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l»OR2 (fl#^049 0-l) 
Option Explicit 
Rem #DEFPUB 
Rem PUB5C2 

Private CTRL_W§X30iJX28«_§X29§_STSJRANSITIONJ ? LG As Integer 
Rem PUB5Y2 

Private CTRL_ffeX30O5B28M*29# - STS„TRANSITI0NJLG_P As Integer 
Rem PUB5B2 

Private CTRL_W§X30M3528@_fX29§_STS_TRANSITION_FLG_PP As Integer 
Rem PUB6F2 

Private CTRLJ'@5530@_@*31@_@»28O«29O»02@J0TJ ? ALID^FLG As Boolean 
Rem IDEFEND 
Rem #DEFPRV 
Rem *PUBRT 

Private CTR_NEXT_PALLET_I D_NEW As String 
Rem PRV7R2 

Private CTRLjrW30MX29iJNG_FLG As Boolean 
Rem PUBKU 

Private CNSJIOTJCUH_String As String 
Rem $PRV2W2 
@%152@ 
Rem $PRV2E2 
Rem SPRV4W2 
©351559 
Rem $PRV4E2 
Rem #DEFEND 

Public Sub Main 0 

Rem #VECREP Private Sub R2_@X31O%286_@*29@_@*02@ 0 
BOX.l : 
Rem PRVLG 

If CTR_NEXT _PALLET_I D_NEW = CNSJtoTJOIILString Then 

GoTo B0X_2 
End If 

GoTo B0X.J 

BOX J: 
Rem PRVLG 

CTR_NEXTJ>ALLETJDJIEW = '@*100@* 

B0X_3: 
Rem PRVLG 

If CTR_NEXT_PALLETJD_NEW O CNSJWTJOJlLString Then 

GoTo BOX.J 
End If 

GoTo B0X_5 

BOXjl: 
Rem PRVLG 

CTR_NEXT_PALLET_I D_NEW = CTR_NEXT_PALLETJD_NEW 
GoTo BOX J 

BOX J : 
Rem PRVLG 

If CTOEXTJ>ALLET_IDJIEW = CNSJWTJOJlLString Then 

GoTo B0X_6 
End If 

GoTo B02L7 

B0X_6: 
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IS<^)R2 (fl#§04 9 0»2) 
Rem PRVLG 

CTRLJ@Sg30O^31O^28O^29O»02@J0TJ ; ALIDJLG = True 
G0T0 B0X_E 

BOX J7 : 
Rem PRVLG 

CTRLJ , M30§J%29§_ING.FLG = True 
G0T0 BOXJE 

B0X_E: 
End Sub 
Rem *** PRCEND 
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Option Explicit 
Rem #DEFPt)B 
iRem PUB5C3 

Private CTRLJ , «X30«JX28§.§X29§.STS_TRANS!TIONJ ? LG As Integer 
IRem PUB5Y3 

Private CTRLJ@X30O*28OX29@_STS„TRANS1TI0NJLGJ As Integer 
IRem PUB5B3 

Private CTRLJ"«X30«_§X28MX29«JTS_IRANSITIONJ ? LGJ > P As Integer 
IRem PUB5C2 

Private CTRL _W2_«28§_8X29e_STS_TRANS I T 1 ON JLG As Integer 
IRem PUB5C4 

Private CTRL3'O^28O»29@„STS_TRANSITI0NJLG As Integer 
IRem PUB6F3 

Private CTRL_WW30MX31®««*28MX29§_§X028JIOTJ , ALIDJLG As Boolean 
IRem #DEFEND 
Rem SDEFPRV 
IRem *PUBRT 

Private CTR_NEXT_PALLETJD_NEW As String 
IRem PRV7R3 

Private CTRLJ"eX30MX29§.INGJLG As Boolean 
IRem PUBKU 

Private CNS JOT JOJILSt ring As String 
IRem SPRY2W3 

m\m 

Rem $PRV2E3 
Rem SPRV4W3 
pi65@ 
Rem $PRV4E3 
|Rem 3DEFEND 

Public Sub MainO 
|Rem #VECREP Private Sub R3RJ5m@J3S28§_@S29O*02@ 0 

B0X_1 : 
IRem PRVLG 

If CTILNEXTJPALLETJDJEW = CNS JOT JWLSt ring And _ 
IRem PRVLG 

(CTRLJ4JX28MX298.STSJTRANSITI0NJLG O 0 Or _ 
IRem PRVLG 

CTRL_W2_§3S28§_6%29e.STS_TRANSITI0N_FLG O 0) Then 
GoTo B0X_2 
End If 

GoTo BOXJ 

B0X_2 : 
IRem PRVLG 

CTRJEXT JALLET J D JEft = *@56100@* 
B0X_3: 
IRem PRVLG 

If CTR_NEXT_PALLETJD_NEW O CNS JOT JKUHJt ring Then 

GoTo B0X_4 
End If 

GoTo BOXJ 

BOXjt : 
IRem PRVLG 

CTRJEXT_PALLET_IDJEff = CTR JEXT_P ALLET J D JEff 



mSE# 2004-3099195 



2003-331373 



200/ 




[E32 0 2] 

ttS*-:^:^ h;KDSl : 0 4 4-2 
1^R3R (fIS^0 5 0 0- 2) 



GoTo B0X_E 

B0X_5 : 
Rem PRYLG 

If CTR_NEXTJALLET.ID.NEff = CNS_NOT.KUH.St ring Then 

GoTo BOXJ 
End If 

GoTo B0X_7 

B0X_6 : 
Rem PRYLG 

CTRL_ff©X30@_iX31®_@X28OX29§_@SK02O0T.VALI!)_FLG = True 
GoTo BOX_E 

B0X_7 : 
Rem PRYLG 

CTRLJ*8*30@J*29@_ING_FLG = True 
GoTo BOXJ 

BOX_E: 
End Sub 

Rem *** PRCEND 



ttHE4¥ 2004-3099195 



#H 2003-331373 



^-v: 201/ 



1 2 0 3] 

MKDS : 0 4 5-1 

jE» (k<p»£tc) /mij/&mm/'mmm/ittfti&oL 3 (ggggj) sio-d 

[Option Explicit 
Rem »DEFPUB 
IRem PUB4N3 

Private W0X3O§_IX3IM*28fL«*29MXO2§ As Integer 
IRem PUBIN3 

Private m305§_§K3l5§_iX285MX295MX2000 As @%235@ 
IRem PUB5C3 

Private CTRL_W§X30OX28§_@SB29©_STS_TRANSlT10N_FLG As Integer 
IRem PUB5Y3 

Private CTRL.W@X30©„@X28@_6X29®„STS_TRANSITIONJLGJ As Integer 
IRem PUB5B3 

Private CTRLJ'@X30O»28^@%29@^STS^TRANSlTI0NJLG_PP As Integer 
IRem PUB6F3 

Private CTRL_W@X30O«31O»28O5K29@^02O0OALID_FLG As Boolean 
IRem SDEFEND 
Rem 3DEFPRY 
IRem PRV2T3 

Private We%30@_@^31O5S28O5B29@__@3602@_wk As Integer 
IRem PRV7R3 

Private CTRLJ"«M0MX29§JNG_FLG As Boolean 
IRem PUBKU 

Private CNSJiOTJOJHJnteger As Integer 
IRem $PRV2W3 
8*1620 
Rem $PRV2E3 
Rem SPRV4T3 

\mm 

Rem $PRV4E3 
lRem ^DEFEND 

Public Sub MainO 
|Rem #VECREP Private Sub L3_@X31O*28®_§X29O*02§ 0 

BOXJ : 
IRem PRVLG 

If W§X30MX31OX28M%29i_Q%02i = CNS.NOTJttJHJnteger Then 

GoTo B0X_2 
End If 

GoTo BOX_E 

B0X_2: 
IRem PRVLG 

mm 

B0X_3 : 
Rem PRVLG 

If W§X30§_§X318_GX28OX29MX02§_wk O CNS_NQTJttIILInteger Then 

GoTo BOXJ 
End If 

GoTo B0X_5 

BOXJ: 
Rem PRVLG 

W@*30OX31OX286_@X29@_6X02@ = Vtt30&_W31§_§X28®JX29§_§X02§_wk 
Rem PRVLG 

CTRL,W©X30O*28O*29@_STS_TRANSITI0N_FLG = CTRL_W@X30OX28O*29@.STS.TRANSITI0NJLG + 1 
GoTo B03LE 

B0X_5 : 
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Rem PRVLG ~ — — — 

I f CTRL_WeX30MX28§^«29§_STS_TRANSITIONJ f LG_P 

= CTM.J«30l_S»Z8i_«29§JTS«TRANSIT10OLCLPP Then 
G0T0 B0X_6 

End If 

G0T0 B0X_7 

BOX J: 
Rem PRVLG 

CTRLJ§X30@_@X3lOX28M«29O»02O0TJ r ALID FLG = True 
G0T0 BOXJE 

B0X_7: 
Rem PRVLG 

CTRLJ*@*30O*29@JNGJ ? LG = True 
G0T0 B03LE 

B0X_E: 
End Sub 

Rem *** PRCEND 
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Opt ion Explicil ~ 
Rem #DEFPUB 
Rem PUB4N4 

Private W@*30@_@X31O*28@_@fc29O%02@ As @X23§ 
Rem PUBIH4 

Private W@*305Ofc315@_@n85O*295@_@n00@ As §*235@ 
Rem PUB5C4 

Private CTRLJ'«X30M*28OX29©.STS„TRANSITI0N_FLG As Integer 
Rem PUB5Y4 

Private CTRL_W@X30e - @3S28©„@X29©_STS^TRANSITION_FLG P As Integer 
Rem PUB5B4 

Private CTRL_W@X30O%28O»29@_STS_TRANSITI0N_FLG_PP As Integer 
Rem PUBBF4 

Private CTRLjr©X3O©_eX3ie_eX28e_eX290 eX02ejNOT_YALID_FLG As Boolean 
Rem ^DEFEND 

Rem PUB4B4 

' Private ff@*300OX31Q@_@X280@_©X290@_8X200@ As ©S23© 
Rem PUB4N3 

Private ff3_@X3lO*28@_@X29OX02© As Integer 
Rem PUB4N2 

' Private ff2_@n]@_@X28OX29@_@JK02@ As @S23@ 
Rem 3DEFPRV 
Rem PRV2T4 

Private W@X30O£31O*28@_@X29O*02@wk As eX230 
Rem PRV7R4 

Private CTRLJ@SK30O^29@JNG_FLG As Boolean 
Rem *PDBKU 

Private CNSJWTJOJILString As String 

Private CNS_NOT_KUH_Integer As Integer 

Private CNS_NOT_KUHJoolean As Boolean 

Private CNSJWTJMUong As Long 

Private CNSJWTJttJH_S ingle As Single 

Private CNS_NQTJttJH_Double As Double 

Private CNSJ*0TJOJH_Va riant As Variant 

Private CNSJMTJCUILCurrency As Currency 

Private CNSJJOTJOJHJyte As Byte 

Private CNS_N0TJOIHJ)ate As Date 
Rem IPRV2W4 
@JI5 172© 
Rem $PRV2E4 
Rem $PRV4W4 
6X182© 
Rem SPRV4E4 
Rem ^DEFEND 

Public Sub MainO 

Rem #VECREP Private Sub L4_@X31@_©X28@_@X29@ 0X02© 0 
B0X_1: 

Rem PRVLG 

if ff@353oe.eas3ie_esi52 8e.ex29Q_0XO2e.wk = cns_not KUiLex23e And 

Rem PRVLG 

ff3_@X31@_eX28@_@X29e_@X02@ = @XO70 Then 
GoTo B03L2 
End If 
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GoTo BOO 

B0X_2 : 
Rem PUB IN 

If W©X305OX3 150X2850X2950X200® = CNS_NOTJvUH_®X2350 Then Go To Box_3 
Rem PRVLG 

W@X30OX31OX28OX29OX02@_wk = W@X305OX3 150X2850X2950*200® 
B0X_3 : 
Rem PRVLG 

If W@X30OX3IOX28OX29OX02Ok O CNS__NOT_KUfL@X23@ Then 

GoTo B0X_4 
End If 

GoTo B0X_5 

B0X_4: 
Rem PRVLG 

ff®X30OX31OX28OX29OX02G = VGX30O*31OX28OX29OX02Ok 
Rem PRVLG 

CTRL3'@X30OX28OX29^STS_TRANSITI0N.FLG = CTRLJ@X30OX28OX29@_STS^TRANSITI0N_FLG + 1 
GoTo B0X_E 

B0X_5 : 
Rem PRVLG 

I f CTRL_W6X30@_@X28OX29OTS^TRANSlTI0N_FLG_P 
= CTRLJiX30OX28OX29OTS - TRANSITI0NJLGJ , P Then 

GoTo BOO 
End If 

GoTo B0X_7 

BOO: 
Rem PRVLG 

CTRLJ'@X30OX31OX28OX29OX02O0T - _VALID_FLG = True 
GoTo BOXJE 

B0X_7 : 
Rem PRVLG 

CTRL_WG*30OX29@__INGJFLG = True 
GoTo BOX J 

BOX_E: 
End Sub 

Rem *** PRCEND 
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Option Explicit 
Ren SDEFPUB 
Rem PUB4N3 

Private «&X308_6X3l&_&X288_aX296_6XD26 (6X269. 6X276) As Integer 
Reci PUB1N3 

Private m305a_8X3156_6X2858JiX2956..6%200&(eX265e.8X275§) As 6X2356 
Rem PUB5C3 

Private CTRL_ff6X30§_§X28Q_§X298_STS„TRANSITION - FLG As integer 
Ren PUB5Y3 

Private CTRL_8"6X308_eX28§^8X296_STS_TRANS|T]0NJ J LG P As integer 
Rem PUB5B3 

Private CTRL_tt§X30MX286_§X296_STS_TRANSITION^FLG PP As Integer 
Rem PUB8F3 

Private CTRL JS6X 3 0 &_8X 3 1 6 J)X 2 86 JJX 2 99 JiXO 28 J<OT J'AL I D FLG (6X266. 6X278) As Boolean 
Rem JDEFEND 
Rem 3DEFPRV 
Rem PRV2T3 

Private ff6X308_eX3]e_eX286_eX29e_6X026_wk (8X268. 6X278) As Integer 
Rem PRV7R3 

Private CTRLJ&6X 308_6X2 98_ING_FLG As Boolean 
Rem PUBKU 

Private CNSJlOTJOJHJnteger As Integer 

Private Gyou as Integer 

Private Retu as Integer 

Private UlLCnt as Integer 

Private Soto^Cnt as Integer 

Private Utijlax as Integer 

Private SotoJJax as Integer 
Rem XPRY2M 
8X1626 
Rem $PRV2E3 
Ren *PRY4ff3 
8X1656 
Rem SPRY4E3 
Rem #DEFEND 

Public Sub (JainO 

Rem 3YECREP Private Sub L3_6X3l§_eX28e_eX298_eX026 Q 

Gyou = 0 

Retu * 0 
Rem PRVLG 

If 8X348 < 6X356 then 
Rem PRVLG 

Utijlax = 6X268 

Rem PRVLG 

Sotojlax = 6X276 
End If 

Rem PRVLG 

If 6X348 > 6X358 then 
Rem PRVLG 

Utijlax = 8X276 

Rem PRVLG 

Sotojlax = 8X266 
End If 
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UlLCnt = 0 ' ~" — 

Solo.Cnt * 0 
Do Until SoloJInl = Solojlax + 1 
UU_Cnl = 0 
Rem PRVLG 

H 6X346 < m$Q then 
Gyou = MLCnt 
Relu * Soto_Cnt End If 

Res PRVLG 

Jf %%m > 6X353 then 
Gyou * Soto_Cnt 
Retu = Utl.Cni End If 
Do Until UU.CdI = Utijlax + 1 
BOX J: 
Rem PRVLG 

If tte*30MX31©_a*28§_&X299_em& (Gyou. Relu) = CNS_N0T KOIUnteger Then 
GoTo B0X.2 
End If 

GoTo BOX.E 

BOX J: 
Rem PRVLG 
MM 

BOX J: 
Rem PRVLG 

If Wex308_§X3ie_§X28M5S298_§X02e^wk (Gyou, Retu) O CNSjiOTJUJIUnteger 
Then GoTo BOXJ 
End If 
GoTo B0X_5 
B0X_4: 
Rem PRVLG 

ff0X3OM*31§_§X28B_§X29Q_eXO2e (Gy 0U , Retu) = WeX30§_6X3ie §X28§ 6X29OX02& wk (Gyou, Relu) 
Rem PRVLG 

CTRL^SX30§_§X28MX29§_STS_TRANSITION_FLG - CTRLjreX3Q8_§X28MX29© STS_TRANS I T I ON _FLG t i 
GoTo B0X_E 

BOXJ: 
Rem PRVLG 

( U CTRL38X30^§X28e.§W9MTS_TRANSITIONJ r LG_P 

= CTRL_ff8X30«.©X28§^©X29MTS^TRANSITION_FLG_PP Then GoTo BOX 6 End If GoTo B0X_7 

B0X_8: 
Rem PRVLG 

CTRLJ§X3Oa_QX31©„«X288_eX298_eX02§ N0T_VAL!D_FLG (Gyou. Retu) = True 
GoTo BOXJi 

B0X_7: 
Rem PRVLG 

CTRUr@X30MX29e_INGJ ? LG = True GoTo B0X_E 
BOXJE: 

UtLCnt = Uti^Cnt * 1 

Rem PRVLG 

U ©X34§ < 8X359 then 
Gyou = UU_Cnt 
Retu - Soto_Cnt End If 

Rem PRVLG 

If 6X34© > ©X358 then 
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Gyou = Soto_Cnt 

Re(u = UtLCnl End If 

Loop 

Solo_Cnt = Solo_Cnt + 1 
Rem PRVLG 

If @S34§ < mm then 
Gyou = UtLCnt 
Retu = Soto_Cnl End If 
Rem PRVLG 

If §%34@ > @%35@ then 
Gyou = Soto_Cnt 
Retu = UtLCnt End If 

Loop 

Gyou = 0 

Retu = 0 

UtLCnt = 0 

Soto_Cnt = 0 

UtiJJax = 0 

SotoJIax = 0 
End Sub 
Rem *** PRCEND 
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Option Explicit ~ ~~ " 

Rem 5DEFPUB 
Res PUB4N4 

Private ffeX30§_9X3ie_6X28e_8X29§_8202e(GX26§. 9X278) As 8X236 
Rem PUBIN4 

Private m3056..6X3 1 58_§X2858_8X295&J«200§ (9X2658. 0X2756) As 6X2356 
Rem PUB5C4 

Private CTRLJtt3Q8_§X286_6X296_STSJFRANSm0N FLG As Integer 
Rem PDB5Y4 

Private CTRLJ§X306_€3:28OX29§_STS_TRANSITI0^FLG P As Integer 
Rea PUB5B4 

Private CTRLjeX30t_W28@_e»29§_STS^TRANSITI0N_FLQ_PP As Inleger 
Rem PUB6F4 

Private CTRL363!30O*31Mt28§_§X29O%02&_K0T_VALID_FLG(eX26e. 8X276) As Boolean 
Rest 3 DEFEND 

Ren PUB4B4 

' Private ff6X300§_§X3IO§,§3S280MX290€.§X200e(§1i26t.©X27§) As 8X239 
Rem PUB4N3 

Private B3_eX316_eX288_eX298_eX028(6X26§. 0X270) As Inleger 
Rem PUB4N2 

' Private ff2_6X3 1 e_ex286_eX298_6X02& (9X268, 9X270) As 9X236 
Rem SREFPRV 
Rem PRV2T4 

Private W8X308_8X3ie_eX28e_8X296_eX02e_wk (6X268. 8X278) As 8X236 
Rem PRV7R4 

Private CTRLJJ©X309_6X298_INGJ ? LG As Boolean 
Rem *PUBKU 

Private CNS_NOT_KUH_String As String 

Private CNSJfOTJOJHJnteger As Integer 

Private CNSJiOT_KUH_Boolean As Boolean 

Private CNSJWTJMLLong As Long 

Private CNSJMJOJrLS Ingle As Single 

Private CNS_NOTJ«fB_Doubie As Double 

Private CNSJJOTJCUILVa riant As Variant 

Private CNS_NOT_KUH_Currency As Currency 

Private CNSJJ0TJOIH_Byte As Byle 

Private CNSJWTJOffiJIate As Date 

Private Gyou as Integer 

Private Retu as Integer 

Private Uti_Cnt as Integer 

Private Soto_Cnt as Integer 

Private Utijlax as Integer 

Private SoloJIax as Integer 
Rem $PRV2W4 
9X1728 
Rem SPRV2E4 
Rem SPRV4W4 
8X1829 
Rem *PRV4E4 
Rem DEFEND 

Public Sub Main 0 

Rem JVECREP Private Sub L4_6X3 16_8X289_eX29§_eX028 0 
Gyou c 0 
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b)l(Dm : 0 4 8-2 

lEftE (KOiJR^TC) /Mil/m&ffi/'&im/itiRm<Dl-4 (Wigfireo 54 0-2) 

Retu = 0 
Ren PRVLG 

If ©X34© < 6X35© then 
Ren PRVLG 

UtlJtax = 6X26© 

Rem PRVLG 

Solojlax = 6X27© 

End If 
Rem PRVLG 

If 9X346 > ©X35© Iben 
Rem PRVLG 

UUJJax = ©X279 

Rem PRVLG 

Solojlax * ©X26© 
End If 
UlLCni * 0 
Solo^Cnt - 0 
Do Until Solo_Cnl = Solojlax t I 
Oti.Cnt = 0 
Rem PRVLG 

If 6X349 < 6X356 then 
Gyou = IKi.Cnl 
Retu = Soto_Cnt 
End If 
Rem PRVLG 

If 6*349 > 0X356 then 
Gyou - Soto_Cnt 
Retu = Uti.Cnt 
End If 

Do Until Utl_Cnt = Ulijlax * 1 
BOXJ: 
Rem PRVLG 

If m30MX3I§_6X28MX29MX02e^wk (Gyou. Retu) = CNSJ<0TJvuTL©X23e And _ 
Rem PRVLG 

ff3_©X31©_©X28©_©X299_©X02& (Gyou, Retu) =6X07© Then 
GoTo B0X_2 
End If 

GoTo BOX_E 

BOXJ: 
Rem PUBIN 

If ff©X305©_©X3l5e_eX285©__§X2956_©X200©(Gyou, Retu) = CNSJTOTJOJMX235© Then Go To Box_3 
Rem PRVLG 

m30©._©X31&_8X28e_©X298_©X02©jfk(Gyou, Retu) * WQX305©_©X315e_eX285©_©X295e_©X200e (Gy 0 u, Retu) 
B0)L3: 
Rem PRVLG 

If weX30©_©X31©_©X28MX29©_©XO2©jJk (Gyou, Retu) O CNSJ107JvUH_§X23© Then 

GoTo BOXJ 
End If 

GoTo B0X_5 

BOXJ: 
Rem PRVLG 

W&X30©JX31©_8X28©_©X29©_©X02© (Gyou. Retu) * «§X308_©X3ie_@X288JX29©_©X02©j*k(Gyou. Retu) 
Rem PRVLG 
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HB-£'<? b)U<D& : 0 4 8-3 

jess (K<pgft£7c) /\hh/mm%/^mm/m.Rm<D i L a (gig^os4o-3) 

CTRL_W@X30O%28O%29©_STS_TRANSITI0N_FLG = CTRLJM30O*28@_@*29@ STS_TRANSITION_FLG * 1 
GoTo B0X_E 

B0X_5 : 
Rem PRVLG 

I f CTRL_W@%30O«28OX29@_STS_TRANSITI0N_PLG - P 
= CTRLJ@»30@^28O«29@„STS_TRANSITI0NLFLG_PP Then 

GoTo B0X_6 
End If 

GoTo B0XJ7 

B0X_6: 
Rem PRVLG 

CTRLJ^300^31@_^28@_^290«0200T_VALID_FLG(Gyou. Retu) = True 
GoTo BOXJE 

B0X_7 : 
Rem PRVLG 

CTRLJ*@K30O*298JNG_FLG = True 
GoTo BOX_E 

BOX_E: 

UtLCnt = UtLCnt + I 

Rem PRVLG 

If @%34@ < @*35@ then 

Gyou = UtLCnt 

Relu = Soto_Cnt 
End If 

Rem PRVLG 

If @S34@ > @*35@ then 

Gyou = Sotojlnt 

Retu = UtLCnt 
End If 

Loop 

Soto^Cnt = Soto_Cnt + I 
Rem PRVLG 

If @X34@ < @%35@ then 
Gyou = UtLCnt 
Retu = Sotojnt 
End If 
Rem PRVLG 

If 8*34© > @S35@ then 
Gyou = Soto^Cnt 
Retu = UtLCnt 
End If 
Loop 

Gyou = 0 
Retu = 0 
UtLCnt = 0 
Soto_Cnt = 0 
UtiJIax = 0 
SotoJIax = 0 
End Sub 

Rem *** PRCEND 
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Option Explicit "~ " " 

Rem #DEFPUB 
Rem PUB4N3 

Private ff@%30@_@X3 I6_@X286_@X296_@X026 As Integer 
Rem PUBIN3 

Private W@X3058_6X3156_®X285@_@X295@_6X200@ As 6*2356 
Rem PUB5C3 

Private CTRL3'6£30@_@X286_6X296_STSjrRANSlTI0N FLG As Integer 
Rem PUB5Y3 

Private CTRL_W@%30O*28O%29@„STS.TRANSITI0N_FLG P As Integer 
Rem PUB5B3 

Private CTRLJ^30@_@*28O«29@ - STS.TRANSITI0N_FLGJP As Integer 
Rem PIIB6F3 

Private CTRL^W@%30O^31@_@*28O«29O*02O0T_VALlD FLG As Boolean 
Rem 3DEFEND 
Rem 8DEFPRV 
Rem PRV2T3 

Private W6X30@_6X316_6X286_@X29@_6X02@_wk6X07@ As Integer 
Rem PRV7R3 

Private CTRL_W@X306_6X29@JNG_FLG As Boolean 
Rem PUBKU 

Private CNS_NOT_KUILInteger As Integer 
Rem IPRV2W3 
6X1626 
Rem $PRV2E3 
Rem $PRV4ff3 
6X1656 
Rem IPRV4E3 
Rem #DEFEND 

Public Sub MainO 

Rem #VECREP Private Sub L3_6X316_6X28@__6X296_6X026 0 
BOX J : 

Rem PRVLG 

If W@X306.JX316_6X286_6X296_6X026 = CNSJ<OT_KUIL Integer Then 

G0T0 B0X_2 
End If 

G0T0 BOXJ* 

B0X„2: 
Rem PRVLG 

mm 

BOX J : 
Rem PUBL3F 

If W6X306_6X316_6X286_6X296_@X02@_wk6X076 = 1 Then GoTo B0X_4 
GoTo B0X_5 

B0X_4: 
Rem PUBL3F 

If ff6X3O6_6X316_eX286_6X29e_6XO20_wk0XO76 = 1 Then W6X306_6X316_6X286_6X29@ 6X026 = 6X076 
Rem PRVLG 

CTRL„ff6X30@_6X286_6X296^STS_TRANSITI0NJ ? LG = CTRL^6X306^6X286_6X29§^STS^TRANSITION_FLG + 1 
GoTo BOXJ 

B0X_5: 
Rem PRVLG 

I f CTRL„W6X3Q6_6X288JSX296J>TS_TRANS I T I ONJLGJP 
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h)l(DSl : 0 4 9-2 
<K(P3R£7C) /Mft/BByjgl/ffffig/igff«|g)L 3 (gjjf 0 5 5 0 -2) 
= CTRLjeX30§^eX28e_§X29§_STSJRANSITION_FLGJP Then 

GoTo BOXJS 
End If 

GoTo B0X_7 

BOX J: 
Rem PRYLG 

CTRLjr§X30i_§JI63IMX28ejX298_«X02§JOT_VALIDJFLG = True 
GoTo B0X_E 

BOXJ: 
Rem PRYLG 

CTRLJWX30ejX298jNGJLG = True 
GoTo BOXJ 

BOXJ: 
End Sub 

Rem *** PRCEND 
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[B2 1 5] 

ttm-s.'*? h;was : o s o - i 

IE% (K0)ffi±7i) /\ttJ3/&&li&/®fafi/t8.?j.m<QL 4 (g@S^0 5 6 0- 1) 
Option Explicit ~~~ 
Ren SDEFPUB 
Rem PUB4N4 

Private fttSNUBS l§ - §X28§„§X29§„W02fi As 6X236 
Rem PUBIN4 

Private &6X3056jtf;315MX285©_eX295&„_§X200§ As 6X2356 
Rem PUB5C4 

Private CTRLJ©X306_6X28MX29§..STS TRANS 1T10N_FLG As Imeger 
Rem PUB5Y4 

Private CTRLJ0X3O6_§X28§_6X29&_STS_TRANS1TIONJ ? LGJ> As Integer 
Rem PUB5B4 

Private CTRL_ffW30e^28^§X29©_STS_TMSITlON_FLG_PP As Integer 
Rem PUB6F4 

Private CTRLjr8X3O6_6X31§_§X288_§X29e_0XO26_NOT_YALII) FLG As Boolean 
Ren JDEFEND 
Rem PUB4B4 

' Private KeX3006_eX310&_eX2806_eX29Q6_6X200& As 6X238 
Rem PUB4N3 

Private W3_6X316_eX286_6X296_exO20 As Integer 
Rem PUB4N2 

' Private W2_eX3ie_8X280_8X29e_exO26 As §58236 
Rem SDEFPRV 
Rem PRV2T4 

Private ff6X3O8_©X3ie„8X28e_0X290_6XO2Mk As 6X238 
Rem PRV7R4 

Private CTRLJT§X3O0JIX298_INGJ ? LG As Boolean 
Rem +PUBKU 

Private CNSJiOTJCUILString As String 
Private CNSJTOTjOJHJnteger As Integer 
Private CNS_NOTJOJH_Boolean As Boolean 
Private CNSJWTJOJIUong As Long 
Private CNSJiOTJMLS ingle As Single 
Private CNSJJOTJiUOouble As Double 
Private CNSJIOTJOJILVa riant As Variant 
Private CNSJJOT_KUH_Currency As Currency 
Private CNS_NOT_KOH_Bl'le As Byte 
Private CNS_NOTJ(UH_Date As Date 
Rem *PRV2»4 

ex me 

Rem JPRV2E4 
Rem SPRV4W4 
6X1820 
Rem SPRY4E4 
Rem SDEFEND 
Public Sub MainO 

Rem SVECREP Private Sub L4__6X316 6X281 6X298 ©XO2e_0XO76O 
BOX_I: 
Rem PRVLG 

If tt6X30e_eX31§_6X28§_eX298_§X02§_wk = CNSJiOT_KUH_6X23§ And 
Rem PRVLG 

tt'3_eX3ia_§X286_e%29§_6X02e = 6X076 Then 
GoTo B0X_2 
End If 
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tim-±^i7 V)V(Dm : 0 5 0-2 

(Kg>8R£5c) /th-h/wt&m/Gmti/iiLftmcDL a (ggegg o s 6 o - 2 > 

G0T0 BOX J 

BOX J : 
Rem PUB IN 

If W0*3O5O*31 5t_0K285t „©X295S_@X200i = CNSJi0TJi()H_©K235© Then Go To Box_3 
Rem PRVLG 

W§X30M*31©_W28MX29§_M02S_wk = W@*305O*315@ @*285§ §X2958 @S200@ 
B0X.3: 

Rem PRVLG 

If W@K30O*31O*28O*29O%02@_wk O CNSJ*0TJO)HJX23§ Then 

G0T0 B03L4 
End If 

G0T0 B0X_5 

B0X_4: 
Rem PRVLG 

W@K30O*31@_@^O*29O*02@ = Wt«30§_8%3I«JX28§JX2M_§X02§_wk 
Rem PRVLG 

CTRLJ^30O^28O*29@„STS_TRANSITI0N_FLG = CTRL_W@*30©_e%28@_§SI529©_STS TRANSITION FLG \ 1 
GoTo BOX_E 

B0X_5: 
Rem PRVLG 

I f CTRL_W@9530O5K28@_@»29@_STS_TRANSITI0NJLG_P 
= CTRLjm30O*28O%298JTS_TRANSITI0NJLG_PP Then 

GoTo B0X_6 
End If 

GoTo BGXJ7 

BOXJ : 
Rem PRVLG 

CmjW30» - W31§_W28§ w «29§JX02O0TJ'ALIDJ 7 LG = True 
GoTo BOXJE 

B0X_7 : 
Rem PRVLG 

CTRL_W@*30@_@*29@_INGJ?LG = True 

GoTo BOX_E 

BOXJE: 
End Sub 

Rem *** PRCEND 
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Option Explicit " 
Rem SDEFPOB 
Rem PUB4N3 

Private W9X306_§WIMX28§_eW9OJ602e(§X26§.©*27§) As Integer 
Rem PUBIN3 

Private »§*305fl_«X3l5ej«2858_e*295e._§S2006 (8X2G58. 8X2758) As 8X235© 
Rem PUB5C3 

Private CTRLJftX30MX28©_8X29e_STS_TRANSfTION FLG As Integer 
Rem PUB5Y3 

Private CTRL_W8*30©_§X288_eX296_STS TRANSIT I0N_FLG P As Integer 
Rem PU65B3 

Private CTRLjreX30&_eX288_8X29©_STS_TRANSlTI(>N FLG PP As Integer 
Rem PUB6F3 

Private CTRLJ«30§^iX3IM3528Q_§X29©_§XO2MOT_V.\LID_FLG(eH526§. 8X278) As Boolean 
Rem ^DEFEND 
Rem ffDEFPRV 
Rem PRV2T3 

Private «W3OMX3ie_69528&_§X29§_§XO2§_wki%O7#(©J260,©«27§) As Inleger 
Rem PRV7R3 

Private CTRL_m3QOX29§_ING_FLG As Boolean 
Rem PUBKU 

Private CNSJJOTJOJHJnteger As Inleger 
Private Gyou as Integer 
Private Reiu as Integer 
Private UtLCnt as Integer 
Private Soto_Cnt as Integer 
Private UUJlax as Integer 
Private SotoJIax as Integer 
Rem $PRV2ff3 

mm 

Rem SPRV2E3 
Rem $PRV4ff3 

n\m 

Rem IPRV4E3 
Rem 3DEFEND 
Public Sub MainO 

Rem 3VECREP Private Sub L3_©X3l©_eX288_GX298_8X02eO 

Gyou * 0 

Retu = 0 
Rem PRVLG 

If 82348 < 6*358 then 
Rem PRVLG 

UtiJIax = 8X26© 

Rem PRVLG 

SotoJIax = 8X278 

End If 
Rem PRVLG 

If 8X348 > 8X358 then 
Rem PRVLG 

UUJlax = 6*276 

Rem PRVLG 

SotoJIax = 8X268 
End If 
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[B2 1 8] 

Utijnl = 0 " ' 

Solo.Cnl = 0 
Do Until Solojnl = Solojax + 1 
Ulijnt ■ 0 
Rem PRVLG 

If §%340 < 6X356 then 
Gvou = UtLCnl 
Retu = Sotojnl 
End If 
Rem PRVLG 

U #S34§ > §X35§ (hen 
Gyou - Sotojnl 
Retu = Ulijnl 
End If 

Do Until UtLCnl = L'liJJax * I 
BOXJ: 
Ren PRVLG 

If ff§X30M*310X288JX29MX02§(Gyou.Relu) = CNSJIOLKUHJnteger Then 

GoTo BOXJ 
End II 

GoTo BOXJ 

BOXJ: 
Rem PRVLG 

exue 

BOXJ: 
Rem PUBL3F 

If ff©X30OX310^X28§_§X29MX02§_wk8X07© (Gyou. Retu) * 1 Then GoTo BOXJ 
GoTo BOXJ 

BOXJ: 
Rem PUBL3F 

If ff§*30QJX31§J*28OX29ftJ*02&jffkeX07§ (Gyou, Retu) = 1 
Then «§%30e_6X3I§_©X28&_&X2S&_§%02§ (Gyou, Retu) = 055070 
Rem PRVLG 

CTRLJ§X30©JS28O*29§JTSJRANSJTI0NJLG = CTRLJ6X3Q§ 9X286 0X296 JTSJTRANS1TI0N FLG t 1 
GoTo BOXJ 

BOXJ: 
Rem PRVLG 

I f CTRLJ8X30M*28©JX298JTS JRANSJTIONJLGJ 
= CTRLjeX30§JX28§JX298JTSJ'RANSITlONJLGJP Then 

GoTo BOXJ 
End If 

GoTo B0X_7 

BOXJ: 
Rem PRVLG 

CTRU.K«X30§_e*3 1§JX286JX29§ JX02©J0TJ' ALIO JLG (Gyou. Relu) = True 
GoTo BOXJ 

BOXJ: 
Rem PRVLG 

CTRL_W8X30OX298JNGJLG = True 
GoTo BOXJ 

BOXJ: 

Utijnt = Utijnl + I 

Rem PRVLG 
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PfB-±^ h)V(Om : 0 5 1 - 3 
JE& (KCD8T^7C) SW l 1jXI&?iffi/!$mj/mRf&0L 3 CgrHE&^O S 7 0 - 3) 
If 6X346 < i*35i then " 
Gyou = Uti.Cnt 
Retu = Soto_Cnl 
End IT 

Rem PRVLG 

I r 9X349 > 8X35§ then 

Gyou = Solvent 

Retu = MLCnt 
End If 

Loop 

Soto.Cnt « Soto.Cnl + l 
Rem PRVLG 

If 9X349 < 8X356 I ben 
Gyou = Mi_Cnl 
Relu = Soto_Cnl 
End If 
Rem PRVLG 

If 6X349 > 9X359 then 
Gyou = Solo.Cnl 
Retu = Uti.Cnt 
End If 
Loop 
Gyou = 0 
Retu * 0 
Uti.Cnt = 0 
Soto.Cnl = 0 
UtiJIax = 0 
SotoJIax c 0 
End Sub 

Rem *** PRCEND 
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\>)V<om : 0 5 2 - 1 

Option Explicit ~ 
Rem *DEFPUB 
Rem PUB4N4 

Private W0X3OM%3l8_8X28§_.§X29e_eX028(&X2 66. 9X276) As 0X230 
Rem PUBIN4 

Private ffeX3O56J}X3l50_0X2850_8X2959_8X2OO0 (0X2658. §352759) As 0X2350 
Rem PUB5C4 

Private CTRL_ffeX3O0_0X280_8X29§„STS TRANSITION FLG As Integer 
Rem PUB5Y4 

Private CTRLjmOOX289_6X290_STS_TRANSITIONJ ; LG P As Integer 
Rem PDB5B4 

Private CTRLtt^Og^Se.^g^STS.TRANSITIONjaG^PP As Integer 
Rem PUBGF4 

Private CTRLjW30©_©X319_§X288_§«29§_9X02§Ji0T_VALID_FLG(e*26e. §X276) As Boolean 
Rem 3DEFEND 

Rem PUB4B4 

' Private W0X3OOa_8X31O0_8X28O8_0X29OMX2OO© (0X260, 8X270) As 0X238 
Rem PUB4N3 

Private W3^©S£3 16_©%28@_©X29©_©X02© (9SK26©. 0X270) As Integer 
Rem PUB4N2 

' Private *2_0X3l0_eX28e_0X290_§XO20{©X260, 8X270) As 0X230 
Rem JDEFPRV 
Rem PRV2T4 

Private W0X3 O8.0X 3 10_©X280_8X290J;XO20_wk (0X260. 0X270) As 0X230 
Rem PRV7R4 

Private CTRLJ0X3O9_8X298JNGJ1G As Boolean 
Rem *PUBKU 

Private CNSJIOTJOflLString As String 

Private CNSJiOTJWHJnteger As Integer 

Private CNS_NOTJCUH_.Boolean As Boolean 

Private CNSJTOTJOJlLLong As Long 

Private CNS_NOT_KUILS ingle As Single 

Private CNSJiOTJCUOouble As Double 

Private CNS_NOTJiUH_Ya riant As Variant 

Private CNSJWT_KUH_Currency As Currency 

Private CNSJiOTJOJUyte As Byte 

Private CNSJJOTJiUHJJate As Date 

Private Gyou as Integer 

Private Retu as Integer 

Private IHL.CM as Integer 

Private Soto_Cnt as Integer 

Private UllJIax as Integer 

Private Sotojdax as Integer 
Rem JPRV2W4 
0X1720 
Rem SPRV2E4 
Rem SPRV4W4 
0X1820 
Rem $PRV4E4 
Rem 8 DEFEND 

Public Sub Main 0 

Rem SVECREP Private Sub L4_0X31§_0X28i_0X290_§XO20_0XO70O 
Gyou = 0 
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tt!*-^^ hAtngJ : 0 5 2-2 

iEAfi (KtPgf<%7C) / / H3^fE^JYf/g?ii!G^r/igW-Mg)L4 (gjgjfeg 0 5 8 0 - 2 ) 

Re 1 1) - 0 ~ ~~ 

Rem PRMG 

If 6X34G < m%G then 
Rem PRVLG 

UliJIax * 6X260 

Rem PRMG 

Solojlax * 0X270 

End if 
Rem PRVLG 

If 6X348 > 6X353 then 
Rem PRVLG 

UliJIax = 0X278 

Ren PRMG 

SotoJIax = 6X268 
End If 
LUi.Cnl = 0 
Solo_Cni ■ 0 
Do Until SotoJJnt * SoloJJax + 1 
UtLCnt » 0 
Ren PRVLG 

I f 6X340 < 0X358 then 
Gyou = Ull.Cnt 
Retu • Soto_Cni 
End If 
Rem PRVLG 

(f 6X348 > 6X356 then 
Gyou - Soto_Cnl 
Retu = UtLCnt 
End If 

Do Until UtLCnt * UliJIax + I 
BOX J : 
Rem PRVLG 

If W8X3O6_8X3l8._@X280_eX298_8XO20_wk (Gyou. Retu) = CNS NOT KUH_6*238 And _ 
Rem PRVLG 

ff3_8X3ie_eX288_0X29e_0XO26 (Gyou. Retu) =6X076 Then 
GoTo B0X_2 
End If 

GoTo B0X_E 

B0X_2: 
Rem PUBIN 

If ff0X3O5e_0X3150_eX2858_eX2950_6X2OO8 (Gyou. Retu) «= CNSJ10T KUH 6X2356 Then Go To Box_3 
Ren PRVLG 

«§X3Oe_0X310_0X28e_0X290_0XO20_wk (Gyou, Retu) = W6X3O50^6X3I58 0X 2 8 50_6X 2 950.6X2000 (Gyou. Retu) 
B0X.3: 
Rem PRMG 

If ffeX3O0.6X318_0X288_0X298_0XO28_wklGyou.RetU) O CNSJiOT KUiL8*238 Then 

GoTo BQX.4 
End If 

GoTo B0JL5 

B0X.4: 
Rem PRMG 

WeX3O8_8X3ie_8X280_0X29e_6XO28(Gyou.Re(u) = W8X3O0_0X318 8X288_8X29e_8X028_wk (Gyou, Retu) 
Rem PRVLG 
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ttm-Si'*? b)\,V>m : 0 5 2-3 

CTRL3eX30§^28OX298_STS^TRANSITI0H.FLG = CTRLJJ8X309_eX288 6*29B_STS TRANSITION FLG t 1 
GoTo B0X_E 

B0X.5: 
Rem PRVLG 

I f CTRLjeX30e_§X286_eX29&_STS_TRANSlTiON„FLG_P 
« CTRLjeX30MX28MX296^STS_TRANSITIONJ ? LGJ>P Then 

GoTo B0X_G 
End IT 

GoTo B0X_7 

B0X.6: 
Rem PRVLG 

CTRL3ex30OX31§_§5E28M«29e„@3502e_N0U'ALID FLG(Gyou. Rclu) = True 
GoTo B0X_E 

B0X_7: 
Rem PRVLG 

CTRL«©X306_§X298JNG_FLG * True 
GoTo B0X_E 

B0X_E: 

UlLCnl * UlLCnl + 1 

Rem PRVLG 

I f §X34§ < 6X35© then 

Gyou = UU_Cnt 

Retu = Soto„_Cnt 
End U 

Rem PRVLG 

[f §X346 > 62356 Ihen 

Gyou - Soto.Cnt 

Retu = UlLCnl 
End If 

Loop 

Soto^Cnt = Soto_Cnt + I 
Rem PRVLG 

If 6K34@ < §X35G then 
Gyou - UlLCnl 
Retu = Soto.Cnt 
End If 
Rem PRVLG 

i If #55346 > 6*359 then 
Gyoo - Solo_Cnt 
Retu * UtLCnt 
End If 
Loop 

Gyou * 0 
Retu = 0 
UlLCnl = 0 
Solo_Cnl = 0 
UlLMax * 0 
SotoJIax ■ 0 
End Sub 

Rem *** PRCEND 
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[HI 2 2 3] 

im-S;*? h)\,(D® : 0 5 3- 1 

gig (K^a-Tc) /^fj/ismm/m^xm^<D'L 3 (two 590-1) 

Oplion Expl ici I "~ " 
Rem UDEFPUB 
Rem PUB4N3 

Private W9X30f!jsX31M*289_6X29MX02e As Integer 
Rem PUBIN3 

Private W9X 3 058JK3 15OX2850_9X2 9 59.6X2 008 As 8X2358 
Ren PUB5C3 

Private CTRLJ8X3Q9_8X286_§X298_STS TRANSITION FLG As Integer 
Ren PUB5Y3 

Private CTRL_m309_9%288_ex296_STS_TitoNSIT10N_FLGJ , As integer 
Rem PUB5B3 

Private CTRL38X3Q8_8X286_8X29e_STSjrRANSIT10NJ ? LG_PP As Integer 
Ren PUB6F3 

Private CTRL_ft§S30§„SK3IMX288_eX29§_0X029_N0TJ'ALlD_FLG As Boolean 
Rem fDEFEND 
Rem 3DEFPRV 
Rem PRV2T3 

Private U9X30MX318_8X289„8X299_8X02&_wk As Integer 
Rem PRV7R3 

Private CTRL_ff©% 3 0fi__6X2 I NG JLG As Boolean 
Rem PUBKU 

Private CNSJlOTJOMLInteger As Integer 
Rem SPRY2V3 

mm 

Rem $PRY2E3 
Rem IPRY4Y3 
9X1656 
Rem SPRV4E3 
Rem SDEFEND 
Public Sub MainO 

Rem SVECREP Private Sub L3.6X 31 8.8X2 8§_8X298_8X 029 0 
BOXJ : 
Rem PRYLG 

If ff9X309_8X319_8X288_8X299_eX028 * CNSJTOTJUJH. Integer Then 

GoTo B0X.2 
End If 

GoTo BOX.E 

B0X.2: 
Rem PRVLG 
8X169 

B0X.3: 
Rem PRVLG 

If W9X30§_8X318_8X28e_8X298__8X02e_wk O CNSJM)TJU)H_lnteger Then 

GoTo B0X_4 
End If 

GoTo B0X.5 

B0X_4: 
Rem PRVLG 

W9X30§_8X318_8X288_9X298_8X029 = ff8X308_«*318 9X289 9X299 8X028 wk 
Rem PRVLG 

CTRL.W8X308_8X288_8X298_STS_TRANSmON._FLG = CTRLJJ8X3 09.8X2 88.8X2 99 STS.TRANS I T 1 0N_FLG + 1 
GoTo B0X_E 

BOXJ: 
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hJKDS : 0 5 3-2 

Rem PRVLG 

1 f CTRLJ'«X30OM8§.§X2M jTSJRANSITIONJLGJ 
= CTRLJW30«^«28«^8%29§JTS_TRANSITI0N_PLGJPP Then 

GoTo B03L6 
End If 

GoTo B0X_7 

B03L6: 
Rem PRVLG 

CTRL_WiX30OX31O%28OX29O*02§ - N0T_VALIDJ ? LG = True 
GoTo BOX_E 

B0X_7: 
Rem PRVLG 

CTRLje*3Q§_§X2MJNGJ ? LG = True 
GoTo BOX J 

B03LE: 
End Sub 
Rem *** PRCEND 
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Mm-±^ bJMDM : 0 5 4-1 

Jem (Kcpm±7t) /&t}/&pm/mmm/&9ig<DL 4 (ggggo 6oo-d 

Option Explicit ' 
Rem #DEFPUB 
Rem PUB4N4 

Private W6X30O*3l@_@*286_@*298_@S02@ As @%23@ 
Rem PUBIN4 

Private K@*305@_@*315O*285O*295@_6*2006 As 6*235© 
Rem PUB5C4 

Private CTRL„W§X30MX28OX29§„STS.TRANSITI0NJLG As Integer 
Rem PUB5Y4 

Private CTRL«W8X30»^«28MX29i - STS_TRANSIT10N_FLGJP As Integer 
Rem PUB5B4 

Private CTW-jr§X30#JX28§_iX29ejTSJRANS!TIONJ f LG_PP As Integer 
Rem PUB6F4 

Private CTRLJ§X30«JX31©_§*28§JX29OX02O0TJ r ALIDJPLG As Boolean 
Rem DEFEND 
Rem PUB4B4 

' Private W@*3006_6S310O*2806_@S5290O*2006 As 8*236 
Rem PUB4N3 

Private ff3_@*31@_6%286_6*298_@%026 As Integer 
Rem PUB4N2 

' Private W2_6X31O*28O*296_G*02@ As 6*236 
Rem 9DEFPRV 
Rem PRY2T4 

Private W8S30@._6*316_6*28@_J*29e_8S026_wk As 6X236 
Rem PRV7R4 

Private CTRL3@X30@_@»29@„INGJLG As Boolean 
Rem *PUBKU 

Private CNS_NOTJvUfl_String As String 

Private CNSJWTJOJHJnteger As Integer 

Private CNS_NOTJOJOooIean As Boolean 

Private CNSJJOTJU)H_Long As Long 

Private CNS_NOTJ(UH_S ingle As Single 

Private CNSJWTJO)H_Double As Double 

Private CNSJWTJOJILVa riant As Variant 

Private CNS_NOT_KUH_Currency As Currency 

Private CNSJIOT_KUH_Byte As Byte 

Private CNS_NOT_KUH_Date As Date 
Rem $PRV2W4 
6X1728 
Rem $PRV2E4 
Rem SPRV4W4 
8X1828 
Rem $PRV4E4 
Rem #DEFEND 

Public Sub MainO 

Rem SVECREP Private Sub L4_@X3 10*280*290X026 0 
B0X_1: 
Rem PRVLG 

If W@*306_8X3 10*280*290*026 = CNS_N0T_KUO*238 And 
Rem PRVLG 

W3_@9S3 10*280*290*026 = 0*076 Then 
GoTo B0X_2 
! End If 
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iE« (K<P»&tg) /ffi*/BByM/^ffiai/iei!tWg>L 4 (gjf ^ 0 6 0 0-2) 

GoTo B0X_E 

B0X_2 : 
Rem PUB IN 

If weX305§.§X315MX285MXZ9S§_W200« = CNS_NQT_KUIL®X235§ Then Go To Box_3 
Rem PRVLG 

W@X30OX31@_@fc28O*29O*02@_wk = W@*305O*315Om5OX295@_@%200@ 
B0X_3 : 
Rem PRVLG 

If W§X30OX3li_§SK28OX29O*026„wk O CNS_N0TJttJO*238 Then 

GoTo B0X_4 
End If 

GoTo BOXJ 

B0X_4 : 
Rem PRVLG 

W@nO@_@X3 10*280*290*020 = W@*30O*31OX28O*29O*02@_wk 
Rem PUB4B4L 

W@%300OS310OX280O*290O*200§ = W«%3O0_§*3 l@_@SK28@_@5g29@_@»02@ 
Rem PRVLG 

CTRLJ«X30OX28«_W529§_STS_TRANSITI0NJLG = CTRLJ@X30O*28O«29@_STS_TRANSIT10N^FLG + 1 
GoTo B0X_E 

B03L5 : 
Rem PRVLG 

I f CTRL J«X30MX28§JX29§.STS.TRANSITI0N JLGJ> 
= CTRLJ'iX308JX28§JX29§JTSJRANSITI0N_FLGJPP Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

B0X_6 : 
Rem PRVLG 

CTRL_W@X30OX31OX28OX29OX02@_N0TJ r ALID_FLG = True 
GoTo BOXJ 

B0X.7 : 
Rem PRVLG 

CTRL _WeX30«_§X2 90.1 NGJLG = True 
GoTo BOX_E 

BOXJ: 
End Sub 
Rem *** PRCEND 
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tt&-£s<2 b)l<DM : 0 5 5-l 

Option Explicit ~ " 

Rem SDEFPUB 
Rem PUB4N3 

Private ft©X3Qe_8X3]e_eX28MX29§_«X02§ As Integer 
Rem PUB1N3 

Private %8X3058_8X3 | 5e_eX2858_eX2958_§X2008 As 6X2356 
Rem PUB5C3 

Private CTRL W W§X30M%28&_6X298_STS_TRANSIT10N_FLG As Integer 
Rem P13B5Y3 

Private CTRL - B§X30S.eX28e_eX298.STS^TRANSITION_FLGJ i As Integer 
Rem PUB5B3 

Private CTRL_W*X30&_9X28MX29a_STS_TRANSITION_FLr,_PP As Integer 
Rem PUB6F3 

Private CTRLj8X308_§X3ie_eX28e_©X29§_§X028J10T_VALlI> RG As Boolean 
Rem 3DEFEND 
Rem 3DEFPRV 
Rem PRV2T3 

Private ff8X3O8_0X31MX28OX29§_8XO28_wk§XO7© As Integer 
Rem PRV7R3 

Private CTRL_ff8X30«_6X298JNG_FLG As Boolean 
Rem PUBKU 

Private CNSJTOTJvlIHJnteger As Integer 
Rem SPRV2W3 
9X1 62§ 
Rem SPRV2E3 
Rem SPRVMV3 
8X1658 
Rem $PRV4E3 
Rem SDEPEND 

Public Sub MainO 

Rem 5VECREP Private Sub L3_8X3l©_eX288__©X298_eX02e 0 
BOXJ : 
Rem PRVLG 

If »©X308_§X3ie_®X28e_8X29©_©X02© = CNSJWJCUHJnleger Then 

GoTo B0X_2 
End If 

GoTo B0X_E 

B0X_2: 
Rem PRVLG 

8X169 
Rem PRVLG 

ft§X30§_eX31MX28OX29OX028_wk§X07© = 8X079 
BOXJ: 
Rem PRVLG 

If W©X308_8X3l8_eX288_8X29e_eX02e_wk©X078 O CNSJJ0T_KUH_©X238 Then 

GoTo B0X_4 
End If 

GoTo B0X_5 

B0X.4: 
Rem PRVLG 

WeX30OX319_QX28©_§X298_eX02© = ff8X308__8X318_eX28e 8X298 §X028_wk§X078 
Rem PRVLG 

CTRL,geX308_8a;28e_8X29e_STS_TRANSITI0W_FLG « CTRLjeat3Q8_8X28e^QX298_STS,TRANSIT10NJ ? LG * 1 
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tttit-&'<9 hJMDM : 0 5 5-2 

mm /^ii/m^m/mm^/mnm^ 3 (ff§##o 610-2) 

G0T0 BOXJ 

B0X_5 : ■ 
Rem PRVLG 

I f CTRL_W@X30@_^28OX29@_STS_TRANSITI0N_FLG_P 
= CTRLJ"^30O^28O^29@_STS_TRANSITI0N_FLG^PP Then 

G0T0 BOXJ 
End If 

G0T0 B0X_7 

B0X_B: 
Rem PRVLG 

CTRLW^30O^31@^28OX29@_@^02@J0TJ , ALIDJLG = True 
G0T0 B0X_E 

B0X_7 : 
Rem PRVLG 

CTRLJ§X30«J%29«JNGJLG = True 
G0T0 B0X_E 

B0X_E: 
End Sub 

Rem *** PRCEND 
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hJKDM : 0 5 6 - 1 
IE& (KOift&Tc) /Bij/&P)m/'3imG/'}flK.G<DL A e§®&^0 6 2 0- 1) 
Option Explicit 
Rem SDEFPUB 
Rem PUB4N4 

Privale m30M*3IMX28<L8*296jraO28 As 0X236 
Rem PUBIN4 

Privale 88X3056.8X3 15§_6X2859_eX295©_eX2006 As 6X2356 
Rem PUB5C4 

Private CTRLJ8X30ejfc289_eX298_STSJTRANSmO,N FIG As Integer 
Rem PUB5Y4 

Privale CTRLjr6X30e_e*286_eX296_STSJTRANSmON FLC P As Integer 
Rem PUB5B4 

Privale CTRLJ8X308_e«8§_W29&_STS_TRANSIT10NJLG_PP As Ioleger 
Rem PUB6F4 

Privale CTRlJ'eX308_§X3i^§X28§_eX29§_QX02§J0T_VALlD_FLG As Boolean 
Rem SDEFEND 
Rem PUB4B4 

' Privale W6X300§_6X3lQ§..§X2808_eX290©_eX20Qe As 8X23© 
Rem PUB4N3 

Private M_6X3l8_@!i;288_eX29e_©X028 As Integer 
Rem PUB4N2 

' Private ff2_6X3 1©_©X2 8©_8X29©_6X0 29 As 8X238 
Rem SDEFPRV 
Rem PRV2T4 

Privale «8X30©_8X3l©_8X288_eX298_8X028_wk As 8X236 
Rem PRV7R4 

Private CTRLjr©X308_6X298_ING_FLG As Boolean 
Rem *PUBKU 

Private CNSJHJTJOJILString As String 

Private CNS_NOT„KUILInteger As Integer 

Private CNSJtOTJOJILBooUan As Boolean 

Private CNS_N0T_KUHJ.ong As Long 

Private CNS_NOT_KUH_S ingle As Single 

Private CNSJtOTJOJOouble As Double 

Private CNSJf0TJOJH_Va riant As Variant 

Privale CNS_NOT_KMLCurrency As Currency 

Private CNSJlOTJOJOyle As Byte 

Private CNSJJOTJOJHj)ate As Date 
Rem IPRY2W4 
8X1728 
Rem $PRV2E4 
Rem SFKV4V4 
6X1820 
Rem $PRV4E4 
Rem 4DEFEND 

Public Sub UainO 

Rem 3VECREP Privale Sub L4_8X318_6X288 6X296 6X026 8X076 0 
BOXJ: 
Rem PRYLG 

If «6X3O6^6X3ie_eX288_eX29e„0XQ26 = CNSJtOTJOJOX238 .And 
Rem PRVIG 

ff3_«X3ie_6X288_eX298_eX02© = 8X076 Then 
GoTo B0X_2 
End If 
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{^-£^2 h)i><DM : 0 5 6-2 

mm (K(08R±7c) /\&i2/&mm/m®ti/mftm<o\~ 4 (g^#^o 620-2) 

G0T0 BOO " 

B0XJ8: 
Rem PUB IN 

If W©X3O5©_©X3I5©_0X285©_©X295©_©X2OO© = CNSJIOTJOIH ©X235© Then Go To Box_3 
Rem PRYLG 

WfiX30©_©X3l©_©X28©_©X29©_©X02©jrt; = 18X3050 ©X3I5© ©%285@ @X295©_©X200© 
BOX J: 

Rem PRVLG 

If m30e_©X3l©JX288_©X29©_eX02©_wk O CNSJWT KUH ©X23© Then 

G0T0 B0X_4 
End If 

G0T0 B03L5 

BOX J : 
Rem PRYLG 

W©X3O0_0X3l©_©X28©_©X29©_©XO2© = W©X30©_«X3l©_©X28fi_©X29«_eX02©_wk 
Rem PUB4B4L 

W©X300©JX3l0©_©X2808_8X2908_©X2008 = W8X308_8X3l©_©X28©JX29©_©X028 
Rem PRYLG 

CTSL.fiX30©_©X28© M ©X29©_STS_TKANSITION_FLG = CTRL W0X3O©_©X28©_©X29©_STS TRANSITION_FLG + I 
G0T0 BOXJB 

BOXJ: 
Rem PRYLG 

I f CTRL J«X30e_©X28©_«X29©JTS_TRANSITION JLGJ 

= CTRL_W©X30©^©X28«_8X29©JTS_TRANSITIONJ J LGJ , P Then 

G0T0 B0X_6 
End If 

G0T0 B0X_7 

B0X_6: 
Rem PRVLG 

CTRLJ@X30OX3l@_@X28OX29OX02O0T_VALID_FLG = True 
G0T0 BOXJ 

mj: 

Rem PRVLG 

CTRL_W©X30©_©X29©_IKG_FLG = True 
G0T0 BOXJ 

BOX_E: 
End Sub 

Rem *** PRCEND 
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Em (Ko^jfc) /\&h/&m$/mm$k/m^o>\* 3 (gf^oe 3 0- 1) 

Option Explicit ~~" ~ 

Rem 3DEFPUB 
Ren PUB4N3 

Private TO30(LQX3]§_©X288_6X296_§X02e (6X2G6.6X276) As Integer 
Rem PUBJN3 

Private WeX305a_§X3158_6X285&_§X2956_&X200& (8X2656. 9X2756) As 9X2356 
Ren PUB5C3 

Private CTRLjr&X306_e%286_&X29&_STSjrRANSlTION_FLG As Integer 
Rem PUB5Y3 

Private CTRLjreX3a&_eX289_8X296_STS TRANS IT ION.FLGJ* As Integer 
Ren PUBSB3 

Private CTRLJ»X308_6X286_6X296_STS.JRANS]TION FLG PP As integer 
Rem PUB6F3 

Private CTRLJieX308_6X319_eX286_eX29OX029JWJ\\LlDJ ? LG (6X266. 6X276) As Boolean 
Rem 3DEFEND 
Rem 8BEFPRV 
Rem PRV2T3 

Private V§X30MX3ie_6X28§_eX29OX02Ok (6X26©, §X27©) As Integer 
Rem PRV7R3 

Private CTRL_1i§X30OX29«_lNG_FLG As Boolean 
Rem PUBKU 

Private CNS_NOT_KUILlnleger As Integer 

Private Gyou as Integer 

Private Retu as Integer 

Private UlLCnl as Integer 

Private Soto^Cnt as Integer 

Private Uti_Max as Integer 

Private SotoJIax as Integer 
Rem *PRV2K3 
8X1620 
Rem $PRV2E3 
Rem SPRV4K3 
OX 1658 
Rem SPRV4E3 
Rem 5 DEFEND 

Public Sub Main 0 

Rem tfVECREP Private Sub L3_§X31©_§X28©_eX29§_§X02§0 

Gyou = 0 

Retu = 0 
Rem PRYLG 

If 6X349 < 6X356 then 
Rem PRVLG 

UtiJIax = 6X266 

Rem PRYLG 

SotoJIax = 6X276 

End If 
Rem PRVLG 

If 6X349 > 6X356 then 
Rem PRVLG 

UliJIax » 6X276 

Rem PRVLG 

SotoJIax = 6X266 
End If 
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iE& (K<Pfli±7C) /fl:ft/ffiffm/^ffi&Xi3ff#g>L 3 (WJljfr5 0 6 3 0 - 2 ) 

Utijnl = 0 " 
Sotojnt = 0 
Do Unlil Sotojnl = SotoJIax t 1 
Uiijnt - 0 
Rem PRVLG 

If §X34§ < §M58 (ben 
Gyou = IMLCnl 
Rctu - Sotojnl 
End H 
Rem PRVLG 

IT 6X348 > §56358 then 
Gyou a Sotojnt 
Ret a = UtLCnt 
End If 

Do Until UtLCnt = UtiJIax t 1 
BOXJ: 
Rem PRVLG 

If ff§X30§_§X3I©_§X28MX29MX029{Gyou,Relu) = CNSJOTjaJH_lnteger Then 

GoTo BOXJ 
End H 

GoTo B0X_E 

B0X_2: 
Rem PRMG 

BOXJ: 
Rem PUB13F 

If W30MX3I«_§X280X290X029_wk(Gyou,Retu) = 1 Then GoTo BOXJ 
GoTo BOXJ 

BOXJ: 
Rem PUBL3F 

IT *eX309JX31§J!KZ8MX29e^§J;029_wk{Gyou.Retu) = t 
Then ^30MX31MX28ej%29&JS02©<Gyou. Retu) = 8X07§ 
Rem PRVLG 

CTRLJ§X30§_§5K28e_§3;29fiJTS_TRANSITIONJLG = CTRLJ§%3O8JS288JX290JTSJRANS]TIONJLG i 1 
GoTo BOXJ 

BOXJ: 
Rem PRVLG 

1 r CTRL JOT308 JX28©_§X29§ _STS_TRANS 1 T ION JLGJ 

= CTRLJ©X30MX28ejX298JTS_TRANSlTIONJLQ_PP Then 

GoTo BOXJ 
End If 

GoTo B0X_7 

BOXJ: 
Rem PRVLG 

CTRLJ©X30ejX3l§JX280X298JX02§_NOT_VALIDJLG(Gyou,Retu) = True 
GoTo BOXJ 

BOXJ: 
Rem PRMG 

CTRLJ©X30§J*299JNGJLG * True 
GoTo BOXJ 

BOXJ: 

Utijnt = UtLCnt 4 ! 

Rem PRVLG 
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ttm-£'<i7 b)UDm : 0 5 7 -3 

ie« (K<pm±7t) /\tiJj/mm&/mmm/m&m<Dh 3 (g3i^o6 3o-3) 

If @S34© < @835@ then 

Gvou = Ut i_Cnl 

Retu = Soto_Cnt 
End If 

Rem PRYLG 

If @*34@ > @%35§ Ihen 

Gyou = Soto^Cnt 

Retu = UtLCnt 
End If 

Loop 

Soto^Cnt = Sotojlnt + I 
Rem PRVLG 

If @*34@ < G*35@ then 
Gyou = UtLCnt 
Retu = Soto_Cnt 
End If 
Rem PRVLG 

If @%34@ > mm then 
Gyou = Soto_Cnt 
Retu = UtLCnl 
End If 
Loop 
Gyou = 0 
Retu = 0 
UtLCnt = 0 
Solo_Cnt = 0 
UtiJIax = 0 
SotoJIax = 0 
End Sub 

Rem *** PRCEND 
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tt^-^t? b)l><D§l : 0 5 8 -1 

Option Explicit " " — 

Rem SDEFPUB 
Rem PUB4N4 

Private W@*30O%3 10*280*290*020 (@S266. @S27@> As @*23@ 
Rem PUBIN4 

Private W305O*315O*285O*295O*200@ (@%265@, @%275@) As ®*235@ 
Rem PUB5C4 

Private CTRLJ@X30@_^28§_^29@_STS_TRANSITI0N_FLG As Integer 
Rem PUB5Y4 

Private CTRLJ^30O*28@^296_STS^TMNSITI0NJ ? LG_P As Integer 
Rem PUB5B4 

Private CTRLJ@X30O»28OX29@_STS_TRANSITI0N_FLG_PP As Integer 
Rem PUB6F4 

Private CTRLJ^30O%316_@»28O*29O^02@j0T_V.ALID_FLG <@S26@. @*27@) As Boolean 
Rem #DEFEND 

Rem PUB4B4 

Private W@*300O*310O*280O*290O*200§(@*26@, @*27@) As @*23@ 
Rem PUB4N3 

Private W3__@*3 lO*2 8O*29O*02@ (@*26@. @*27@) As Integer 
Rem PUB4N2 

Private W2_@*3 10*280*290*02® (0*26®, §*27@) As @*23@ 
Rem #DEFPRV 

Rem PRV2T4 

Private W@*30O*31O*28O*29O*02OM@*26@, mm As 8*23® 
Rem PRV7R4 

Private CTRLJ*@K30O*29@JNGJ ? LG As Boolean 
Rem *PUBKU 

Private CNS_NOT_KUlLString As String 
Private CNS_NOT_KUH^Integer As Integer 
Private CNSJfOTJOJHJBoolean As Boolean 
Private CNS_NOTJKUHJ,ong As Long 
Private CNS.NOTJOJILS ingle As Single 
Private CNS_NOT_KUHJ)ouble As Double 
Private CNSJWTJttflLVa riant As Variant 
Private CNSJWTJtfJILCurrency As Currency 
Private CNS_NOT_KUH_Byte As Byte 
Private CNSJWTJOJOate As Date 
Private Gyou as Integer 
Private Relu as Integer 
Private Uti_Cnl as Integer 
Private Soto_Cnt as Integer 
Private Utijiax as Integer 
Private SotoJIax as Integer 
Rem $PRV2ff4 
@*I72@ 
Rem $PRV2E4 
Rem IPRV4W4 

mm 

Rem JPRV4E4 
Rem #DEFEND 
Public Sub MainO 

Rem #VECREP Private Sub L4_@*3 10*280*290*020 0 
Gyou = 0 
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[[212 3 5] 

HI*©®: 0 5 8-2 

BE& (KfO^Tc) /^m^/geM^/CyflSM/ift^CTL 4 (gigft^O 6 4 0-2) 

Relu = 0 ' ' 

Ren PRVLG 

I If 8X346 < 6X356 I hen 

Rem PRVLG 

UliJIax * 6X266 

Rem PRVLG 

SotoJIax = 6X276 

End If 
Rem PRVLG 

If MM & > 6X358 then 
Ren PRVLG 

UliJIax * 81276 

Rem PRVLG 

SotoJIax = 6X266 
End ir 
UlLCnl = 0 
Soto^Cnt = 0 
Do Until Soto_Cnl = SoloJIax 4 1 
Uti.Cnt = 0 
Ren PRMG 

If 6X346 < 8X356 then 
Gyou = Uti.Cnt 
Retu = Soto_Cnt 
End If 
Rem PRVLG 

If 6X346 > 6X356 then 
Gyou = Solo_Cnt 
Retu = Uti_Cnt 
End If 

Do Until UlLCnt » Utijlax + 1 
BOXJ: 
Rem PRVLG 

If ff8X3O8_eX316_eX28e_0X298_8XO28 (Gyou. Retu) = CNSJWT KUH 6X236 And 
Rem PRMG 

W3_6X316_eX286_6X290_6XO26 (Gyou, Retu) « 8X076 Then 
GoTo B0X_2 
End If 

GoTo BOX.E 

B0X.2: 
Rem PUBIN 

If WeX3O56_6X3l56_6X2856__6X2956_6X2OO0 (Gyou. Retu) = CNS_N0T_KUH_6X2356 Then Go To Box_3 
Rem PRVLG 

WeX308_8X31«_eX286_6X296_6X02e_wk (Gyou. Retu) = ff6X305e_8X3l58 6X2856 6X2958 6X2006 (Gyou. Retu) 
B0X_3: 
Rem PRVLG 

If flex306_eX3ie_eX288_eX29§_6X028_wk (Gyou. Retu) O CNSJIOT KUH 6X238 Then 

GoTo B0X_4 
End If 

GoTo B0X_5 

B0X_4: 
Rem PRVLG 

ff8X308_eX3ie_eX28©_eX298_6X02e(Gyou.Relu) = teX3O8_8X310 6X286 6X298 6X028 wk (Gyou, Retu) 
Rem PUB4B4L 
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[EI 2 3 61 

hfrtogl : 0 5 8-3 

1E& (KOift&TC) /'m^Xffi^/'^flE^Xia^CDL 4 0gJ3!Jft^0 6 4 0-3) 

ff6X3008_&X3IOe_eX280e_eX29Q8_&X2008 {Gyou. Relu) - W8X30&_8*31§ 8X288 6X296 8X028 {Gyou. Re I u) 
Ren PRVLG 

CTRL_WeX30MX28Q_8%298_STS.TRANSIT10N.FLG = CTRL_W8%30MX288 ©X298_STS TRANSITION FLG + 1 
GoTo B0X_E 

B0£_5: 
Rem PRVLG 

I f CTiaj8X308_§X28&_8X298_STS_TRANSlT10N_FLG_P 
= Cm_ff8X306_§X286_8S29§_STS_TRANSm0N_FLGJ 1 P Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

B0X.6: 
Rem PRVLG 

CTRLJ8X30§_©X3ie_QX28§_§X298_eX029_N0T_VALID_FLG(Gyou.Retu) * True 
GoTo B0X_E 

B0X_7: 
Rem PRVLG 

CTRLJ8X30OX298_ING_FLG » True 
GoTo B0X_E 

B0X_E: 

UtLCnl = UtLCnl + 1 

Rem PRVLG 

If 8X348 < 8X358 Iben 

Gyou = UlLCnt 

Relu = Soto_Cnl 
End If 

Rem PRVLG 

If 0X343 > 9X35© then 

Gyou = Soto_Cnl 

Retu = UtLCnl 
End If 

Loop 

Soto_Cnt = Solo_Cnt + I 
Rem PRVLG 

If 9X348 < 8X358 Iben 
Gyou = UtLCnl 
Relu = Soto_Cnl 
End If 
Rem PRVLG 

If 8X348 > 8X358 then 
Gyou = Solo_Cnt 
Relu = Uti_Cnt 
End If 
Loop 
Gyou = 0 
Retu = 0 
Ut i.Cnl * 0 
Soto_Cnt = 0 
UtiJIax = 0 
SotoJIax = 0 
End Sub 

Rem *** PRCEND 
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[S 2 3 7] 

tt®L-&1# hJl<om : 0 5 9-1 

IE% (KtPflS±7t) /&i]/mWtt/&mG/f&9t.ft<DL 3 CSfiSjfi^O 6 S 0 - 1 ) 

Option Explicit "~ " 

Rea 3DEFPUB 
Ren PUB4N3 

Private W§X306_8S318_6X288_6X29e_8X02e (6X266, 8X276) As Integer 
Rem PUBIN3 

Private ff6X3O5e_eX315e_eX2856_eX295e_6X200e (6X2656. 6312756) As 6X235© 
Rea PUB5C3 

Private CTRLJTeX308_6X286_6X29tLSTS_TRANSITION FLG As Integer 
Rem PUB5Y3 

Private CTRLJ^X306_6X28§JX29©_STSjrRANSITIONJ ? L(LP As Integer 
Rem PUB5B3 

Private CTRL_ftfiX30&_8X28§_8X296_STS_TRANSITlONJ ? LCJ>P As Integer 
Rem PUB6F3 

Private CTRL_ff@X30^§3!3l9_§3f28&_ea529§^02e^OT_VALin_FLC(9X26&. 0X276) As Boolean 
Rem SDEFEND 

Rem UDEFPRV 

Rem PRV2T3 

Private ffaX30§_6X3l©_e«8M«9MX026_wk8X07§(6X266, 6X279) As integer 
Rem PRV7R3 

Private CTRLJ§*306^6!i;296_INGJ ? LG As Boolean 
Rem PUBKU 

Private CNSJIOTJOIJUnlegcr As Integer 

Private Gyou as Integer 

Private Retu as Integer 

Private UlLCnt as Integer 

Private Solo_Cnt as Integer 

Private UtiJIax as Integer 

Private SotoJIax as Integer 
Rem SPRV2W3 
6X1626 
Rem IPRV2E3 
Rem SPRV4W3 
6X1656 
Rem JPRY4E3 
Rem SDEFEND 

Public Sub MainO 

Rem ffVECREP Private Sub L3_©X3ie_©X289_8X298_©X028 0 

Gyou = 0 

Retu = 0 
Rem PRYLG 

If 3X346 < 6X356 then 
Rem PRYLG 

UtiJIax = 8X26© 

Rem PRYLG 

SotoJIax = 6X276 

End If 
Rem PRYLG 

If 6X346 > 6X356 then 
Rem PRVLG 

UtiJIax = 8X276 

Rem PRYLG 

SotoJIax = 6X268 
End If 
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[EB 2 3 8 ] 

tttit-&1# h)l>(D$l : 0 5 9 - 2 
gig (Ktoffi^Tt) /mij/&WG/2}®G/ifWKS<DL 3 (g@#30 6 5 0-2) 

uilcdi = o =— " ; 

Soto_Cnt c 0 
Do Until Solo_Cnt = SoloJIax * I 
Uti.Cnt = 0 
Rein PRVLG 

If 6X348 < 6X35© then 
Gyou = UlLCnt 
Relu = Soto_Cnl 
End If 
Ren PRVLG 

If 0X340 > 6*359 then 
Gyou = Soto_Cnt 
Relu = Uli.Cnt 
End If 

Do Until UlLCnt = Utijlax + I 
BOX_l : 
Rem PRVLG 

If TOX3QMX31MX280_§*29OXO28<Gyou.Retu) = CNS_NOT_KUH_Integer Then 
\ GoTo B0X_2 

End If 

GoTo BOXJi 

BOXJ: 
Rem PRVLG 
8X168 

B0XL3: 
Rem PUBL3F 

If m308_eX31§_8X28§_8X298_8X028j*k8X078 (Gyou, Relu) = I Then GoTo B0X_4 
GoTo B0X_5 

B0X.4: 
Rem PUBL3F 

If m308_GX31§_8X28§_8X29§_8X028_wkeX07© (Gyou. Relu) = J 
Then ffeX3O0_eX3ie_8X28e_©S29e_§XO2e (Gyou. Ret u) = 6X078 
Rem PRVLG 

CTRLJ^308_§X28fi_8X298JTSjrRANSITI0N_FLG = CTRL_W63J30OX28«.8X29«_STS_TRANSITI0N_FLG f I 
GoTo BOX_E 

B0X.5: 
Rem PRVLG 

1 f CTRLjreX308_8X288_8X29§_STSJ , RANSlT10N_FLG_P 
= CTRL_W9a530e_6«28§_eX29©_STS_TRANSITION_FLG^PP Then 

GoTo B03L6 
End If 

GoTo B0X_7 

BOXJi: 
Rem PRVLG 

CTRL„ffeX308_©«318_§X288 - .9X29M5602fl_N0T_VALlDJ ? LG(Gyou,Retu) = True 
GoTo BOXJi 

BOXJ: 
Rem PRVLG 

CTRL_ff8X308_8X29§_ING_FLG = True 
GoTo BOX_E 

BOXJ: 

UtLCnt » Ull_Cnt t 1 

Rem PRVLG 
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[0 2 3 9] 

tf®-^* V)V<om : 0 5 9-3 

(KOr^Tt) /toil/mi]M/Tm*i/'®.m\<ni. 3 0g{S!ffi*IO 6 5 0-3) 
H 6X349 < 6X356 then 
Gyou = UlLCnt 
Retu = Solo_Cnt 
End If 

Rem PRVLG 

If §X34§ > ©X35§ then 

Gyou = Soto_Cnt 

Relu = UtLCnt 
End IT 

Loop 

Soto_Cnl = Soto.Cnl 4 1 
Rem PRVLG 

If &X348 < §56359 then 
Gyou = LULCnl 
Retu = Solo_Cnt 
End If 
Rem PRVLG 

If > 8X350 then 

Gyou = Solo_Cnt 
Retu = UlLCnt 
End If 
Loop 

Gyou * 0 

Retu «= 0 

UtLCnl * 0 

Solo_Cnt * 0 

UtiJIax = 0 

SotoJIax - 0 
End Sub 
Ren *** PRCEND 
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[[12 4 0] 

Mtt-g'** MUOffl : 0 6 0 - 1 

(K(P8ft&7C) Xffi^/Sa^/ > ^fl5^rXig^OL4 (gl^Q6 6 0-l) 
Option Explicit ^™*~ 
Ren 3DEFPUB 
Rem PUB4N4 

Private ™308J}X3ie_eX28e.6S29e_8X028(§X26§. 6X278) As 6X238 
Reo PUBIN4 

Private a&X3058.8X3 156.8X2856.8X2956.6X2008 (6X2656. 8X2756) As 8X2358 
Ren PUB5C4 

Private CTRL.W8X308_eX28B.eX298_STS_TRANSm0N FLG As Integer 
Ren PUB5Y4 

Private CTRL J §353 08.6X2 88.8X29 8_STS.TRANSITI0N.FLG J As Integer 
Rem PUB5B4 

Private CTRL_m30&_eX28e_8X29e_STS.TRANSITION_FLG_PP As Integer 
Reo PUB6F4 

Private CTRL_W6X306_8X3 16.6X288.6X2 98.6X028_NOT.VAL I D.FLG {82268, 8X27©) As Boolean 
Ren ^DEFEND 
Rcq PUB4B4 

' Private ff&X3006_eX310e_6X2806_eX2908_6X200& (8X268. 8X278) As 8X238 
Rem PUB4N3 

Private W3.8X316_eX28e_6X298_eX02e (6X268, 8X278) As Integer 
Rem PUB4N2 

' Private W2.8X3 10.6X286.8X298.8X028 (8X268, 8X278) As 8X238 
Rem SDEFPRY 
Rem PRV2T4 

Private ff8X3Qe_8X318.8X288.eX29e_eX028_wk (8X268. 8X278) As 6X238 
Rem PRV7R4 

Private CTRLJ 6X308.8X296. I NG.PLG As Boolean 
Rem *PUBKU 

Private CNS_N0TJOJH_Slring As String 

Private CNS.NOT.KUH_Integer As Integer 

Private CNSJJOT.KUII.Boo lean As Boolean 

Private CNS__NOT_KUlLLong As Long 

Private CNS.NOT.KUR_Singie As Single 

Private CNS.NOTJvUHJJouble As Double 

Private CNS_N0TJOIH_Va riant As Variant 

Private CNS.NOT_KUB_Currency As Currency 

Private CNS_NOTJCUHJyte As Byte 

Private CNS_N0TJOJH_Date As Date 

Private Gyou as Integer 

Private Rein as Integer 

Private Uti.Cnt as Integer 

Private Solo.Cnt as Integer 

Private UtiJIax as Integer 

Private SotoJIax as Integer 
Rem SPRV2W4 
6X1726 
Rem $PRV2E4 
Rem SPRV4W4 
8X1826 
Rem SPRY4E4 
Rem ^DEPEND 

Public Sub MainO 

Rem SVECREP Private Sub L4.8X3 ) 8.8X2 86.8X2 96.6X0 28.8X0 78 0 
Gyou = 0 
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[HI2 4 1] 

ttm-^t; hJMom : 0 6 0-2 

jej& (K(ogr<^7c) /\&^/&mK/^m&/mmio>'L4 (gjj^o 6 6 o - 2) 

Relu - 0 — — — - 
Rem PRVLG 

IT 69:348 < 3X356 then 
Rem PRVLG 

Utijlax = 6X269 

Rem PRVLG 

SotoJIax = 6X276 

End If 
Rem PRVLG 

If 6X340 > ^ 3 56 then 
Rem PRVLG 

Utijlax = 6X276 

Rem PRVLG 

SotoJIax = 6X266 
End If 
UtLCnl « 0 
Soto^Cnt = 0 
Do Unlil Soto_Col s SotoJIax + I 
UtLCnl «= 0 
Rem PRVLG 

If 6X346 < 6X35© then 
Gyou = Uti.Cnt 
Retu = Soto.Cnt 
End If 
Rem PRVLG 

If 6X349 > 6X356 then 
Gyou » Sotojtot 
Retu = Uli.Cnt 
End It 

Do Until UlLCnt = Utijlax + 1 
BOX J: 
Rem PRVLG 

If W9X308_eX3ie_6X28e_eX29e_eX026 (Gyou. Retu) = CNSJiOTjmH_6X236 And _ 
Rem PRVLG 

ff3_eX3l8_eX288_6X299_9X02e {Gyou. Relu) « 8X076 Then 
GoTo B0X_2 
End If 

GoTo BOO 

B0X.2: 
Rem PUBIN 

If ffeX3058__eX3l58_8X2856_8X295e_eX2Q0e(Gyou,Retu) = CNSJi0TJO)lLeX235© Then Go To Box_3 
Rem PRVLG 

W6X30®_6X3ie_8X28©_6X298_8X028_wk (Gyou. Retu) = «'8X305e_6X3I58_eX2856 6X2956 6X2008 (Gyou. Retu) 
BOX J: 
Rem PRVLG 

If ff8X30§_eX31©_8X28e_6*298_6X026_wk (Gyou. Retu) O CNSJiOT_KUH_6X236 Then 

GoTo B0X^4 
End If 
GoTo B0X_5 

B0X.4: 
Rem PRVLG 

W8X308..@X3ie_eX289_JX298_§X02e(Gyou, Relu) = W§X308_6X3 18_6X28©_8X298_6X02e_wk (Gyou. Relu) 
Rem PUB4B4L 



fcBSE# 2004-3099195 



$&m 2003-331373 



^-v! 240/ 



[13 2 4 2] 

tttt-^Z b)l><DM : 0 6 0-3 

g*a (Kcogft^Tc) /mt)/i&mft/!$mfi/'*&¥&i<DL 4 (ggg^o 6 6 o-3> 

W§X3008_6X3I0MX2808_6X290&J«2009{Gyou.Retu) = m3G8_8X31& ©X28e_8X29OX026 (Gyou, Retu) 
Ren PRVLG 

CTRLjeX30G_eX286_8X298_STS_TRANS!TtOtLFLG = CTRLJ&X308_§X28§_8X29&_STS TRANS1T10N_FLG i 1 
GoTo B0X_E 

B0X.5: 
Rem PRVLG 

I f CTRL_ffeX30§_§X28O85296_STS_TRANSlTI0N_FLG„P 
= CTRL^eS30S.M28OX29^STS_TRANSITI0N_FLGJ»P Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

B0X_6: 
Rem PRVLG 

CTRLjeSI5308_§X31MX28§_e«29M»0200T_VALID_FLG(Gyou.Retu) = Tree 
GoTo BOXJE 

B0X_7: 
Rem PRVLG 

CTRL38X308_8X298JNG_FLG = True 
GoTo BOX J 

BOX.E: 

UlLCnt = Oli.Cnt 4 1 

Rem PRVLG 

If 6X348 < 8X358 then 

Gyou = Ul i_Cnt 

Relu - Solo_Cnt 
End If 

Rem PRVLG 

If 8X346 > 8X358 then 

Gyou = Soto_Cnl 

Retu = UtLCnt 
End if 

Loop 

Soto^Cnt - Soto_Cnl + 1 
Rem PRVLG 

If 8X348 < 8X358 then 
Gyou = UtLCnt 
Retu s Soto_Cnt 
End If 
Rem PRVLG 

IT 8X348 > 6X358 then 
Gyou = Soto^Cnl 
Relu * UtLCnt 
End If 
Loop 
Gyou = 0 
Retu = 0 
Uti_Cnt = 0 
SoloJInt = 0 
Ulijfax = 0 
SotoJIax = 0 
End Sub 

Rem *** PRCEND 
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[@2 4 3] 

Mm-±^ hfrom :06i-i 
K/\tj/mmi*/Tmm/im&<DL 2 (g@ss^o 6 7 0 - 1 > 

Option Explicit 
Rem 8DEFPUB 
Rem PUB4N2 

Private ff§X306_§X3ie_ex28f_6X29e_eX028 As 8X236 
Ren PUBIN2 

Private ffeX305§_ex3156_eX285§J»295§_8X2O06 As 6X2359 
Rem PUBSC2 

Private CTfa_m308.eX286_6X296_STS_TlWSm0N._FLG As Integer 
Rem PUB5Y2 

Private CTRL_*eX30e.eX28e_eX298_STS_TRANSlTION_FLG_P As Integer 
Rem PUB5B2 

Private CTRL_tteX306_eX28e_6X29e_STS_TRANSITl0N_FLGJ , P As Integer 
Rem PUB6F2 

Private CTRL JJ6X30e_6X3 1 ®_QS2 88_6X299_6X026_N0T_VAL1 D_FLG As Boolean 
Rem 3DEFEND 
Rem 3DEFPRV 
Rem PRV2T2 

Private UeX308_6X3ie_eX288_eX298_eX02e_ffk As 8X236 
Rem PRV7R2 

Private CTRL_W6X30e_6X296_ING_FLG As Boolean 
Rem PUBKU 

Private CNSJ0T„KUa_8X238 As 8X238 
Rem $PRV2ff2 
6X1528 
Rem $PRV2E2 
Rem $PRV4«2 
8X1558 
Rem SPRV4E2 
Rem SDEFEND 

Public Sub MainO 

Rem #VECREP Private Sub L 2.8X3 16.6X 2 86.6X 296.6X026 0 
BOXJ: 
Rem PRVLG 

If ffeX306_eX3]6.8X28e„8X298„8X028 = CNS.N0TjaJH.8X 2 3 8 Then 

GoTo B0X_2 
End If 

GoTo BOO 

B0X.2: 

' ' NOP 
B0X.3: 
Rem PRVLG 

If VeX306_8X3l8_6X289.6X29e_eX02e.wk O CNS_N0T_KUOX236 Then 

GoTo B0X.4 
End If 

GoTo B03L5 

B0X.4: 
Rem PRVLG 

ffeX308_eX3]6_eX288_eX298_eX028 = ffeX30e.6X318_eX288_§X298_eX028 
Rem PRVLG 

CTRL_W6X308_eX28e_9X298.STS_TRANSITION.FLG = CTRL.W6X30e_eX28e_eX296_STS_TRANSlT10N.FLG + I 
GoTo BOXJ 

B0X_5: 
Rem PRVLG 
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[EI 2 4 4 ] 

tt&-±'<£? bfrom : 0 6 1 - 2 
K/Aa/ffifljg/'^g/iftft&PL 2 (fffgffr^O 6 7 0-2) 

ir cTRLj^0Mx28§_ex29&_sTSjrRANsmoNj^G_p 

«= CTRLJ§X30MX28e^6X29a_STS - TRANSITIONJLG_PP Then 

GoTo B0X.6 
End If 

GoTo B0X_7 

B0X_6: 
Ren PRVLG 

CTRLJ65i;30MX3]MX28OX29MX02O0TJ'AL!D_FLG - True 
GoTo BOJLE 

B0X_7: 
Rem PRVLG 

CTM,JT§X30M*29§_ING__FLG = True 
GoTo B0X_E 
B0X.E: 
End Sub 
Rem *** PRCEND 



ffi!E# 2004-3099195 



#M 2003-331373 



^-v! 243/ 



[1 2 4 5 1 

MbcOgJ : 0 6 2 - 1 

K/A;fr/ffi^/^ffijtt/ig#&0L 2 (gJjjfr^O 6 8 0- 1) 

Option Explicit " " * 

Rem 5DEFPUB 
Rent PIIB4N2 

Private W§n06_8X316_e*288_O%29©._6X{)2©(6X26© ( ©*278) As §35238 
Sen PUBJN2 

Private ff&*305e__§X3158_©X2858_§X295©_eX20()8 As 6X2356 
Rem PUBSC2 

Private CTRLje*30©_©3;28©_.©*298_STS.JRANSITI0N FLG As Integer 
Ren PIIB5Y2 

Private CTRL_W8X30OX28©J3X29©_STS_TRANS I T I ON _FLG P As Integer 
Rem PUB5B2 

Private CTRl - ffeX30MX28©_©X29d^STS„TRANSITIONJ ? LGJ > P As Integer 
Ren PUBGF2 

Private CTRLJ§X3O§^X3l6_e3S280_eX29©_§5i;D2OOT^VALID_FLG(&st;26§. As Boolean 

Ren SDEFEND 

Ren SDEFPRV 

Ren PRV2T2 

Private W©X308_6S!3 1 e_©X28©_eit29©_§X02d vk C@%26@. @%27d) As ©X23© 
Rem PRV7R2 

Private CTRLJ»§X3Q8_JS29§_IN(LFLG As Boolean 
Ren PUBKU 

Private CNS_N0TJUJH_§S23§ As 93523© 

Private Gyou as Integer 

Private Retu as Integer 

Private Uli_Cnt as Integer 

Private Soto_Cnl as Integer 

Private Uti_Max as Integer 

Private SoloJIax as Integer 
Rem SPRV2W2 
©X152© 
Rem JPRV2E2 
Rem SPRV4«2 
§21559 
Ren SPRV4E2 
Ren SDEFEND 

Public Sub MainU 

Rem aVECREP Private Sub L2_©X31«_§Sfi28©_0S529e_exO2© 0 

Gyou - 0 

Retu = 0 
Ren PRVLG 

If t*348 < ©X358 then 
Rem PRVLG 

UtiJIax = 8X26© 

Ren PRVLG 

SoloJIax = 8X278 

End If 
Rem PRVLG 

1 1 ©X348 > ©335© then 
Rem PRVLG 

Uti_Max = 8X278 

Rem PRVLG 

SoloJIax = 6X268 
End If 
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[H2 4 61 

Wl/CDg : 0 6 2-2 

K/Xft/ffim/^ffi&/%fl£s<PL 2 (gJSft^O 6 8 0-2) 

UtLCnt = 0 
Solo.Cnl = 0 
Do Until Soto.Cnt » Sotojlax * 1 
UlLCnl = 0 
Rem PRVLG 

If 6X346 < &X35§ then 
Gyou - UtLCnt 
Retu - Soto^Cnt 
I End U 

Rep PRVLG 

If §35346 > §X35§ tben 
Gyou = Solo_Cnl 
Retu = UlLCnl 
End if 

Do Until UtLCnt = UliJJax + 1 
BOXJ: 
Rem PRVLG 

If WX300X310X28e.iX299_W02etGyou.Retu) * CNSJ*OTJttJH_§X23§ Then 

GoTo B0X_2 • 
End If 

GoTo BOX_E 

B0X_2: 

' 'NOP 
B03L3: 
Rem PRVLG 

If W§*30e_@*31OX28a_eX29OX02©j*k (Gyou. Retu) O CNS_NOT_KUfl_§X23§ Then 

GoTo B0X_4 
End If 

GoTo B0X_5 

BOXji: 
Rem PRVLG 

l§X300X31MX280X29§_§X028(Gyou, Retu) * ff©X30MX3IO*288_eX29e_8X02© (Gyou, Retu) 
Rem PRVLG 

CTRL_BW30MX28e_9X29e_STS_TRANSlTION_FLG = CTRL_W30§_8X28MX298_STS_TRANSITI0NJ 7 LG + I 
GoTo BOX_E 

B0X_5: 
Rem PRVLG 

I f CTRL jr§X30©„_8*2 8MX29fi_STS_TRANS I TION_FLG_P 
= CTRL3e«306_eX288_eX29i„STS_TRANSITlON_FLG_PP Then 

GoTo B0X_6 
End If 

GoTo B0X.7 

BOXJ: 
Rem PRVLG 

CTRL^§X30OX3IM*28OX29§_§X02O0T_VALID_FLG (Gyou. Retu) » True 
GoTo BOX_E 

B03L7: 
Rem PRVLG 

CTRLjr©X30MX298_ING_FLG = True 
GoTo BOO 

BOX J: 

UtLCnt = UtLCnt + 1 

Rem PRVLG 



tH6E# 2004-3099195 



#JS 2003-331373 



245/ 



[HI 2 4 7 ] 

MKAS : 0 6 2-3 
K/\fy/Um&/'Zim$k/%ift$k<0\. 2 (gjgffr^O 6 8 0~ 3) 
If 8X346 < 6X356 then 

Gyou * UtLCnt 

Retu = Solo.Cni 
End It 

Rem PRVLG 

If 6X348 > §S35§ then 

Gyou = Soto.Cnl 

Relu = UtLCnt 
End If 

Loop 

SotcCnt - Soto.Cnl 4 I 
Rem PRVLG 

if 6X346 < 6X356 then 
Gyou * UtLCnt 
Retu = Soto.Cnt 
End If 
Rem PRVLG 
' If 6X346 > 6X356 then 
Gyou = Soto.Cnt 
Retu = UtLCnt 
End If 
Loop 

Gyou = 0 
Retu - 0 
UtLCnt = 0 
Soto.Cnt = 0 
Utijlax * 0 
Soto_Max = 0 
End Sub 

Rem *** PRCEND 



[HI2 4 8] 

hJUDSl : 0 6 3 

I2gg2<PS4 (gS^0 6 9 0) _ 

Option Explicit 
Rem 3DEFPUB 
Rem PUB4N4 

Private B 6X30 8.6X3 16_8X 288.6X2 98.6X026 As 6X238 
Rem SDEFEND 
Rem flDEFPRV 
Rem PUBKU 

Private CNS_N0TjanL6X236 As 8X236 
Rem SDEFEND 
Public Sub MainO 

Rem JVECREP Private Sub S4.eX3ie.8X288_8X298_ex0268X048i3 0 

BOXJ: 
Rem PtmiN 

B0X.2: 
Rem PUBKK 

B0X.3: 

B0X.4: 

BOXJ: 

B0X.6: 

BO.U: 

BOXJ: 
End Sub 
Rem tPRCEND 



2004-3099195 



2003-331373 



246/ 



[12 4 9] 

Mm-±^ h)l<DM: 0 6 4 

12f%4<PS4 (7?Jlffiii0 7 0 0) 

Option Explicit " ' 

Rem 3PEFPUB 
Rem PUB4N4 

Private ft6%30§_6X3 ia_e5&28e_0X299_©XO2§ As §X23© 
Rem 3DEFEND 
Rem SDEFPRV 
Rem PUBKU 

Private CNSJOTJUHJX23© As ©X23© 
Rem 3DEFEND 
Public Sub UainO 

Ren 3VECREP Private Sub S4JX3I9JX28IJX29© 6X0286X04914 0 

BOXJ : 

BOXJ: 
Rem PUBKK 

BOXJ: 

BOXJ: 

BOXJ: 

BOXJ: 

B0X_7: 

BOXJ: 
End Sub 
Ren *PRCEND 



[B2 5 0] 

ttfa-^P h)M»m : 0 6 5 

Q4%4<OS4 (fi#^0 7 1 0) 

Option Explicit ' " ~~ 

Rem 8DEFPUB 
Ren PUB4N4 

Private «©X309JX31©JX288JX29© 6X02© As ©X23© 
Rem PUB4N4 

Private CTRJX3l&JX288_©X29©J)4JND As Boolean 
Rem ^DEFEND 
Rem SDEFPRV 
Rem PUBKU 

Private CNSJ0TJOJHJX23© As ©X23© 
Rem 3DEFEND 
Public Sub UainO 

Rem SVECREP Private Sub S4JX31©JX28e_§X29©JX02§ex04©J5 0 

BOXJ: 

BOXJ: 
Rem PUBKK 

BOXJ: 

BOXJ: 

BOXJ: 

BOXJ: 

BOXJ: 

BOXJ: 
End Sub 
Rem *PRCEND 



HliE# 2004-3099195 



2003-331373 ^- I 247/ 




2 5 1] 



-±^2 b)l0>m : 0 6 6 
L4%4 (gg/ggjg/gfBg/jg^jjj g)S4 (gfflft^O 7 2 0) 



Option Explicit 
Rem 3DEFPUB 
Rem PQB4N4 

Private ff§X30e_eX31l_6X28M*29MX02& As 9%239 
Rem PUB4N2 

Private CTR_eX3IM*28©_§1529§J)4_END As Boolean 
Rem 3DEFBND 
Rem SDEFPRV 
Rem PRV7R4 

Private CTRLJ6%30§_©%296JNG_FLG As Boolean 
Rem PUBKU 

Private CNS_NOTJOflL§*230 As §1238 
Rem 3 DEFEND 
Public Sub MainO 

Rem 3VECREP Private Sub S4_§5K31Ma528M*296_«X028e*048)6 0 
B0)L1: 

Rem PUB04STS 

If CTfLe*3ie_§X28M*29B_04_END O True Then GoTo BOX E 

B0X_2: 
Rem PUBKK 

BOX J3: 

B0X_4: 

B0X_5: 

B0X_6: 

B0X_7: 

BOX_E: 
End Sub 
Rem tPRCEND 



IH 2 5 2 ] 

ttm-£H7 HKDgJ : 0 6 7 
L4S54 (lEft/ffi^M/^ffiW/igW-SS) g)S4 (gg^0 7 3 0) 
Option Explicit 
Rem #DEFPUB 
Rem PUB4N4 

Private WeX309_e*31M*28M*29§_ex02§ As §S23§ 
Rem PUB4N2 

Private CTR_9%31§_§m§_§*298_04_EM As Boolean 
Rem 3DEFEND 
Rem #DEFPRV 
Rem PRV7R4 

Private CTRLJTeai308_8X29@J NG_FLG As Boolean 
Rem PUBKU 

Private CNS_NOTJOflL§*23© As 9*239 
Rem #DEFEND - 
Public Sub UainO 

Rem JVECREP Private Sub S4_GX3I§_QM88_eX29©_8X02&eX04ei6 0 
BOX_l: 

Rem PUB04STS 

If CTR_eX31©_§X280_M29©_04_END O True Then GoTo BOX_E 

B0X_2: 
Rem PUBKK 

B0X_3: 

B03L4: 

BOX-5: 

BOO: 

B0X_7: 

BOX_E: 
End Sub 
Rem *PRCEND 



tBIE# 2004-3099195 



#M 2003-331373 



^-vl 248/ 



[M2 5 3] 

ft^-^^ HK7)g> : 0 6 8 
L4%4 (iE&/KffJff/5ffig/igffjjg) COS 4 (g^jfi^O 7 4 0) 
Option Explicit " 
Ren SDEFPUB 
Rem PUB4N4 

Private *6X308_6X3ie_6X286.JX29e_eX02e (8X266. 6X276) As 6X236 
Rem PUB4N2 

Private CTR_6*3IO__83528MX298J)4 END As Boolean 
Ren 8DEFEND 
Rem «DEFPRY 
Rem PRV7R4 

Private CTRLjr©X306_§X296_ING FLG As Boolean 
Rem PUBKU 

Private CNS_N0T_KUH_eX236 As 6X236 
Rem 3DEFEND 
Public Sub Main 0 

Rem SVECREP Private Sub S4_§X316_6X28e_eX298 6X0266X04616 0 
BOXJ : 

Rem PUB04STS 

If CTR_6X316_6X28©_eX296_04_END O True Then GoTo B0X_E 

B0X.2: 
Rem POBKK 

B0)L3: 

BOXjl: 

BOX^S: 

B0X_6: 

B0X_7: 

BOX.E: 
End Sub 
Rem *PRCEND 



[IH 2 5 4J 

nm~±^ h)i<r>m : o 6 9 
l 4^4 (sL&/&mm/s$mm/t$iftm <osa t*gm&*zo 7 5 o> 

Option Explicit ' 
Rem 3DEFPUB 
Rem PUB4N4 

Private ff6X30e_6X3te_6X286_6X29e_§X026 (9X266. §35276) As 6X236 
Rem PUB4N2 

Private CTR_6X3ie_6X286_§X298J)4 END As Boolean 
Rem SDEFEND 
Rem SDEFPRV 
Rem PRV7R4 

Private CTRLjreX30e_6X296_ING_FLG As Boolean 
Rem PUBKU 

Private CNS_N0Tja]fL6X23e As 6X236 
Rem SDEFEND 
Public Sub MainO 

Rem SVECREP Private Sub SOX316_6X286 6X296 6X0266X04616 0 

BOX^I: 

Rem PUB04STS 

If CTR_6X316_6X286_6X296_>LEND O True Then GoTo BOXJ 
B03L2: 

Rem PUBKK 

B0X_3: 

B0X_4: 

B0X_5: 

B0JL6: 

BOXJ: 

B0X_E: 
End Sub 
Rem *PRCEND 



ffilE4# 2004-3099195 



#11 2003-331373 



v : 249/ 



[02 5 5 ] 

h^OSJ : 0 7 0 
L 4 51 4 (gtt/BE^Iffi/gWai/ttgtr) <OS 4 (ggjggO 7 6 0) 
Oplion Explicit 
Rem 3DEFPUB 
Rem PUB4N4 

Private ffQX308_8X31MX288.JX298_eX02© As 8X238 
Rem PUB4N2 

Private CTR_©%3l8_8X28e..©X296_04_END As Boolean 
Rem SDEFEND 
Ren 3DEFPRV 
Rea PRY7R4 

Private CTRLJ8X306_6X29ejNG_FLG As Boolean 
Rem PUBKU 

Private CNS_N0T_KUJL8X23§ As 8X238 
Rem 3DEFEND 
Public Sub UainO 

Rem ftVECREP Private Sub S4_8X316..©X288_8X298__8X02e8X04©l6 0 
BOXJ: 

Ren P0BO4STS 

II CTIL8X318_©X288_aX298J)4_END O True Then GoTo BOX_E 

B0X.2: 
Rem PUBKK 

B0X_3: 

B0X_4: 

B0X_5: 

B0X.6: 

B0X_7: 

B03LE: 
End Sub 
Rem *PRCEND 



[EI 2 5 6 ] 

tt&-£<*2 b)MDM : 0 7 1 

Option Explicit 
Rem 3DEFPUB 
Rem PUB4N4 

Private W©X308_8X3ie_8X28e_eX29e_eX02e As 8X238 
Rem PUB4N2 

Private CTR_©X3IQ_8X28©_0X298J)4_END As Boolean 
Rem 3DEFEND 
Rem 3DEFPRV 
Rem PRV7R4 

Private CTRIJT8X 3 08JJX2 98_I NG _FLG As Boolean 
Rem PUBKU 

Private CNS_N0TJCU1L8X238 As 8X23© 
Rem SDEFEND 
Public Sub MainO 

Rem 3VECREP Private Sub S4_8X318_eX28e_8X29e_8X02§8X04616 0 
BOX_l: 

Rem PUB04STS 

If CTR_8X3ie_8X288_0X298_O4JND O True Then GoTo BOXJE 

BOX Jl: 
Rem PUBKK 

BOX J: 

B0.TL4: 

B0X_5: 

B0X_6: 

B0X_7: 

BOXJE: 
End Sub 
Rem *PRCEND 



tbliE# 2004-3099195 



2003-331373 



250/ 



[1212 5 7] 

tt®i-&'<& h)V<Dm : 0 7 2 

■L4S54 (jE&/ffcPl&/'%mm/m?f.&) OS 4 (gi.gffig0 7 8 O) 
Option Explicit 
Rem 3DEFPUB 
Rem PUB4N4 

Private 19X308_eX31M*28§_9X298_tt029<«269. 9X278) As 9X239 
Rem PUB4N2 

Private CTMX318_6X2 89.9X2 96_04_END As Boolean 
Rem 3 DEFEND 
Rem SDEFPRV 
Rem PRV7R4 

Private CTRLJ§X309_6X298_INC_FLG As Boolean 
Rem PUBKU 

Private CNS_N0TJiUH_6X238 As 6X239 
Rem 3DEFEND 
Public Sab Main 0 

Rem SVECREP Private Sub S4_8X318_eX289_§X298 6X0203X04916 0 
BOX J: 

Rem PUB04STS 

If CTR_9X318_8X289_eX29§_04_END O True Then GoTo B0X_E 



B0X_2: 


Rem PUBKK 


B0X.3 




B0X_4 




B0X_S 




B0X_6 




B03L7 




B0X_E 




End Sub 


Rem *PRCEOT) 



[[32 5 8 ] 

{^m-±^ bJKDM : 0 7 3 

L4%4 dE^BH^JW/^W/^W) OS 4 0 7 9 0) 

Option Explicit 
Rem 3DEFPUB 
Rem PUB4N4 

Private W8X309_9X318_9X289_8X299_9X029 (8X269. 8X278) As 9X239 
Rem PUB4N2 

Private CTIL9X3ie._9X289_8X298J)4_END As Boolean 
Rem 3DEPEND 
Rem SDEFPRV 
Rem PRV7R4 

Private CTRLJ8X308_8X298JNCLFLG As Boolean 
Rem PUBKU 

Private CNSJWJUJ1L8X239 As 9X239 
Rem 3 DEFEND 

Public Sub Main 0 
Rem SVECREP Private Sub S4JX319.9X288 9X298j9X0298X048I6 0 

B0JL1: 

Rem PUB04STS 

If CTR_8X319_0X286_8X298_O4_END O True Then GoTo BOO 



B0X_2 


» 
• 


Rem PUBKK 


B0X.3 




B0X.4 




B0JL5 




B0X.6 




B0X_7 




B0X_E 




End Sub 


Rem *PRCEND 



tiiiE# 2004-3099195 



12003-33 1373 ^-v : 251/ 




12 5 9] 

tt&-±'<C? h)VO>M : 0 7 4 

L4&4 (K/&&\m/3tmm/&ftm) <dsi esmft^osoo) 



Option Explicit 
Rem UDEFPUB 
Rem PUB4N4 

Private mmjb%mj&%2M_mteJl%m As 8X238 
Rem PUB4N2 

Private CTfL6X3]§_8X28e..6X29e_04_END As Boolean 
Rem 3 DEFEND 
Rem JDEFPRV 
Rem PRV7R4 

Private CTRLjr8X3O©__0X298JNG_FLG As Boolean 
Rem P0BKU 

Private CNSJIOT_KUOX23§ As 8X23© 
Rem ^DEFEND 
Public Sub MainO 

Rem SYECREP Private Sub S4_§*3 je_8X288_©X29e_ex0 268X0491 60 
BOXJ: 

Rem PUB04STS 

If CTR_8X31©_§X28©_eX298_0'LEND O True Then CoTo B0X_E 

B0X.2: 
Rem PUBKK 

BOXJ: 

BOXJ: 

BOX_S: 

B0X..6: 

B0X_7: 

BOXJB: 
End Sub 
Rem *PRCEND 



2 6 0] 

hJMDM ; 0 7 5 

L4%4 (K/&m&/®mm/tttftm) <os4 (tagfosio) 



Option Explicit 
Rem JDEFPUB 
Rem PUB4N4 

Private «8X30e_©%3ie.JX289_eX29©_©X028 As 6X238 
Rem PUB4N2 

Private CTR_8X3ie_eX288_©X298_04_END As Boolean 
Rem 3DEFEND 
Rem SDEFPRV 
Rem PRV7R4 

Private CTRL.ff§X308„8X298_IN(LFLG As Boolean 
Ren PUBKU 

Private CNSJ*OTJttJOX23© As 8X238 
Rem 3DEFEND 
Public Sub MainO 

Rem SVECREP Private Sub S4_©X3l8_eX28©_©X29&_©X0288X049]6 0 
BOXJ: 

Ren PUB04STS 

If CTFL©X31©_©X288_8X298J)4_END O True Then GoTo BOX_E 



B0X_2: 


Rem PUBKK 


BOXJ 




BOXJ 




B0JL5 




BOXJ 




B0X_7 




BOXJ 




End Sub 


Rem *PRCEND 



ffiSE#2 004-3099195 



2003-331373 



^-5>: 252/ 




f^-±^i7 hfrOSl :076 
L4SS4 (K/g^g/^flBM^ffai) CDS 4 (gg^£0_82_0) 
Option Explicit 
Rem 3DEFPUB 
Ren PUB4N4 

Private W§*308_&31©_&X28MX29§_dX02e 1995266. 6X278) As 6X23& 
Rem PUB4N2 

Private CTR_§X3ie_6X28«.JX29§J)4_END As Boolean 
Ren ffDEFEND 
Rem 1DEFPRV 
Rem PRV7R4 

Private CTRLjeX30&_GX29ejNGJ : LG As Boolean 
Rem PUBKU 

Private CNS_N0T_KUH_©X23© As ©X23§ 
Rem ^DEFEND 
Public Sub MainO 

Rem JVECREP Private Sub S4_§X3ie_§X28MX29OX02§§X04§16 0 
BOX_] : 

Rem P0B04STS 

If CTM*3l©_e*28d_§X299J)4_END O True Then GoTo BOX_E 

B0X.2: 
Rem PUBKK 

B0X.3: 

BOXjl: 

B0X.5: 

BOXJ: 

BOX J: 

BOXJ;: 
End Sub 
Rem *PRCEND 



[B2 6 2] 

MKDg) : 0 7 7 
L4g4 <K/ffiftJ#/ff 4 (ffig#^0 8 3 0) 
Option Explicit 
Rem SDEFPUB 
Rem PUB4N4 

Private ra30OX31&_eX286JX298_6X02«(eX26e, §X270) As §*23© 
Rem PUB4N2 

Private CTTL§X31MX28OX290J)4JEND As Boolean 
Rem 9DEFEND 
Rem SDEFPRV 
Rem PRV7R4 

Private CTRLjreX308_§X29«JNGJ>LG As Boolean 
Rem PUBKU 

Private CNSJiOTJOHLeX23§ As §X239 
Rem 3DEFEND 
Public Sub UalnO 

Rem SYECREP Private Sub S4_6X3iejX28OX29e_§X02e8X04§!6 0 
B0X.1: 

Rem PUB04STS 

If CTR_eX3Ii_§X28§JX298J)4JND O True Then GoTo BOX_E 



BOXJ: 


Rem PUBKK 


BOXJ: 




B0X_4. 




BOXJ 




BOXJ 




BOXJ 




BOXJ 




End Sub 


Rem * PRC END 



tBSE# 2 0 0 4 



-3099195 



4#M 2003-331373 ^- v : 253/ 




2 6 3 ] 



b)WD§£ : 0 7 8 
L2S&4 (fiB^J^/^fiB^/Jfi^) <Z>S4 (i?1^088 0) 



Option Explicit 
Rem ♦** VECBEF 
Rem 3DEFPUB 
Rem PUB4N4 

Privale W6X30§_6X3 16_§X28§_6X29§_§X02§ As 6X236 
Rem DEFEND 
Rem CDEFPRV 
Rem PUBPKY04 

Private CTRlJ§X300«31§_©X289_eX29M%02e_OUT„Conditions_KEY_NOT_VALID_FLG As Boolean 
Reci PUBKU 

Private CNS_N0TJ(uTLeX23e As 6X236 
Rem 5DEFEND 
Public Sub MainO 

Rem SVECREP Private Sub S4_6X3ie_aX28©_§X29e_eX02&8X04617 0 
BOX. I: 

Rem PUBPKY04 

If CTeLJ§X306„8X31§_6!l528§_eX298_0irr_Conditions_KEY_N0T^VALlD_FLG = True Then GoTo BOX_E 
B0X_2: 
Rem PUBKK 
B0X_3: 
B0X_4: 
B03L5: 
B0X_6: 
B0X.7: 
BOJLE: 
End Sub 
Rem *PRCEND 



[El 2 6 4 ] 

hJlom. : 0 7 9 

L2S&4 {mrn/mmm/m^-n) ©S4 (®i^0 8 9o) 

Option Explicit 
Rem *** VECDEF 
Rem 3DEFPUB 
Rem PUB4N4 

Private ff©X3Qe_eX3IMX28e_§%296_©X026 As 0X239 
Rem ^DEFEND 
Rem SDEFPUB 
Rem PUBPKY04 

Privale CTRL_W§X306 - 8X31§_6X286_6X296_eX02« - OUT.ConditionsJCEY.NOT_YALID„FLG As Boolean 
Rem PUBKU 

Private CNSJWT_KUOX236 As 6X236 
Rem 3 DEFEND 
Public Sub MainO 

Rem SVECREP Privale Sub S4_8X3ie_QX28e_eX299_eX0268X04ei7 0 
BOXJ: 

Rem PUBPKY04 

U CTRL„ff6l5306_§X31i_6X28§.eX299_0UT_Conditions_KEY_N0T_YALIDJLG = True 
Then GoTo BOO 

B0X_2: 
Rem PUBKK 
B0JL3: 
B03L4: 
B0X_5: 
BOX.B: 
BOXJ: 

BOXJ: 
End Sub 
Rem *PRCEND 



mtE# 2004-3099195 



(RMH 2003-331373 



^-v: 254/ 



[0 2 6 5] 

HKDM : 0 8 0 
L3 354 (gjgXIB^a/gyflS^/iftffSS) OS 4 (tm0 9 0 0) 
Option Explicit 
Rem SDEFPUB 
Rem PUB4N4 

Private m308_eX31M*28O%2y0_e%02© As §*238 
Ren SDEFEND 
Rem JDEFPRV 
Rem PUBKU 

Private CNS_N0TJ\Uh*_eX23§ As §323Q 
Ren 3DEFEND 
Public Sub MainO 

Rem 3YECREP Private Sub M_ei3IOX28O*29§_§%02&8X04§18() 



B0X_1: 




B0X_2: 




Rem PUBKK 


B0X.3; 




BOX _4: 




B03L5 




B0JL6 


* 


B0X.7 




BOXJ 




End Sub 


Rem *PRCEND 



ffilE# 2004-3099195 



#H 2003-331373 



^ - v* : 255/ 



[12 6 6] 

Mm-±^^7 h)l<DM : 0 8 1 

Option Explicit 
Rem #DEFPUB 
Rem PUB4N4 

Private W@% 3 0@_@% 3 1 @_@% 2 8 2 9@_@% 0 2@ As @5K23@ 
Rem #DEFEND 
Rem #DEFPRV 
Rem PUBKU 

Private CNS_N0T_KUH_@%23@ As @%23@ 
Rem #DEFEND 
Public Sub MainO 

Rem #VECREP Private Sub S4_@5K3 1@_@%28@_@%29@_@SK02@@%04@1 8 0 

B0X_1 : 

B0X_2 : 
Rem PUBKK 

B0X_3 : 

B0X_4 : 

B0X.5 : 

B0X_6 : 

B0X_7 : 

BOX_E : 
End Sub 
Rem *PRCEND 



ffiiE# 2004-3099195 



#112 003-331373 ^- v : 256/ 

[m 2 6 7] 

L3i4 (jM/ga^JW/#^/:^&0 ®S4 (flf#0 9 2 0) 
Option Expl icit 
Rem #DEFPUB 
Rem PUB4N4 

Private 3 0 @_@% 3 1 @_@ % 2 8 @_@% 2 9 @_@% 02® (@%26@, @%2W) As @%23@ 
Rem #DEFEND 
Rem #DEFPRV 
Rem PUBKU 

Private CNS_N0T_KUH_@5I523@ As @*23@ 
Rem tDEFEND 
Public Sub MainO 

Rem #VECREP Private Sub S4_@%3 1@_@5S28@_@SK29@_@%02@@%04@18 0 

B0X_1: 

B0X.2 : 
Rem PUBKK 

B0X_3 : 

B0X_4 : 

B0X_5 : 

B0X.6 : 

B0X_7 : 

BOX_E : 
End Sub 
Rem *PRCEND 



ffiSE# 2004-3099195 



#SI 2003-331373 



^-v: 257/ 



[B2 6 8] 

hJKDSH : 08 3 

l sm4 (iE&/m&}fi/mm&/ / tk&m) <ds4 (ga#^o 930) 

Option Explicit 
Rem SDEFPUB 
Rem PUB4N4 

Private W%zmj®%mj$%2M_$%2$@J%mm21%®%27®) As @*23@ 
Rem tDEFEND 
Rem ffDEFPRV 
Rem PRV7R4 

Private CTRLJ^30MX29§_INGJFLG As Boolean 
Rem PUBKU 

Private CNS_NOT_K0H_@X 236 As @X23@ 
Rem SDEFEND 
Public Sub MainO 

Rem #VECREP Private Sub S4_@*31O*28O*29O%028@X04@18 0 

BOX J : 

BOX J : 
Rem PUBKK 

B0X_3 : 

B0X_4: 

B0X_5 : 

B0X_6 : 

B0JL7 : 

BOX_E: 
End Sub 
Rem *PRCEND 
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[EB 2 6 9 ] 

Oplion Explicit 
Rem SDEFPUB 
Rem PUB4N4 

Private W@S30O*3IOS28O*29@_@S02@ As @*23@ 
Rem SDEFEND 
Rem #DEFPRV 
Rem PUBKU 

Private CNS_NOLKUH_@S23@ As @K23@ 
Rem SDEFEND 
Public Sub MainO 

Rem JYECREP Private Sub S4_@S31O*28M&29O*02@@S04@l8 0 

B03L1: 

BOX J: 
Rem PUBKK 

BOX J: 

B0JL4: 

BOILS: 

B03L6: 

B0X_7 : 

BOX J: 
End Sub 
Rem *PRCEND 
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[1 2 7 0] 

ttU-±s<i7 h)V(Dm : 0 8 5 

L3^4 {m&/&&\m/mm&/m&&) cos 4 (tisfo 9 5 0) 

Option Explicit 
Rem 5DEFPUB 
Rem PUB4N4 

Private W§*30O*3 10*280*290*02® As @*23@ 
Rem #I)EFEND 
Rem 5DEFPRV 
Rem PUBKU 

Private CNSJOTJOJO*23@ As @*23@ 
Rem tDEFEND 
Public Sub Main 0 

Rem 3VECREP Private Sub S4_@*31O*28O*29O*02@8*04@18 0 

BOXJ : 

B0X.2 : 
Rem PUBKK 

B0X_3: 

BOXjl : 

B0X_5 : 

B0X_6 : 

B0X_7 : 

BOX_E: 
End Sub 
Rem *PRCEND 
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im 2 7 1 ] 

f*»-±^ h;U(DS : 0 8 6 
L3S4 (g«/EWW/*MBai/a»W) OS 4 (gfj##0 9 6 0) 
Option Explicit 
Rem SDEFPUB 
Rem PUB4N4 

Private ff§X30O*3 10*280*290*020 (@X26@. @X27@) As @X23@ 
Rem SDEFEND 
Rem SDEFPRV 
Rem PUBKU 

Private CNSJ0TJttJO*23@ As @X23@ 
Rem SDEFEND 
Public Sub MainO 

Rem SVECREP Private Sub S4J*31O*28O*29O*02i§X04§18 0 

B03L1: 
B0X_2 : 

Rem PUBKK 

B0X_3: 

B0X..4: 

B0X_5 : 

B0X.6 : 

B0)L7: 

BOX_E: 
End Sub 
Rem *PRCEND 



[1 2 7 2] 

tt»-±^ b)l<DM : 0 8 7 

L3i4 {K/^mm/mmmxmwm) <z>s4 (11^0970) 

Option Explicit 
Rem fDEFPUB 
Rem PUB4N4 

Private ff@*30O*3 10X280X290*02® (§*26G. ©*27@) As @X23@ 
Rem #DEFEND 
Rem #DEFPRV 
Rem PUBKU 

Private CNS_NOTJvUOX230 As @%23@ 
Rem #DEFEND 
Public Sub MainO 

Rem #VECREP Private Sub S4_§X31O*28O*29O*02flW04§18 0 



BOXJ : 


» 
* 


B0X_2: 


» 


Rem PUBKK 


BOX J: 




B0X_4 




B0)L5 




B0X_6 




B03L7. 




BOXJ' 




End Sub 


Rem tPRCEND 



tilSE# 2004-3099195 



!&m 2003-331373 



^-v! 261/ 



[112 7 3 ] 

ttB-lk^P b)l<DM : 0 8 8 

L3i4 (K/mmBk/mmm/titftm) <os4 (ffi^0 9 8 p) 

Option Explicit 
Rem *** VECDEF 
Rem SDEFPUB 
Rem PUB4N4 

Private W«X30§_«%31§JX28§.§X29MX02e As @*23@ 
Rem #DEFEND 
Rem #DEFPRV 
Rem PUBKU 

Private CNS_N0T_KUH_@*23@ As @S23@ 
Rem #DEFEND 
Public Sub MainO 

Rem #VECREP Private Sub S4_§*3 10^0*290*0286*04® 1 8 0 

B0X_1: 

BOX J2: 
Rem PUBKK 

B0X_3: 

B0X_4: 

BOX J : 

B0X.6 : 

B0X_7: 

BOX J: 
End Sub 
Rem *PRCEND 



[H2 7 4] 

ttm-±s<i7 b)\s<DM : 0 8 9 

l 3^4 {K/m&m/mm&/s§L&$k) <as 4 (gg»*t o 9 9 0) 

Option Explicit 
Rem *** VECDEF 
Rem #DEFPUB 
Rem PUB4N4 

Private W@S30O*3 10*280*290*020 As @*23@ 
Rem #DEFEND 
Rem ftDEFPRV 
Rem PUBKU 

Private CNSJIOTjaiO*23@ As @*230 
Rem SDEFEND 

Public Sub MainO 

Rem SVECREP Private Sub S4_@*31O*28O*29O*02@@*04@18 0 

B0X_1 : 

B0X_2 : 
Rem PUBKK 

B0X_3 : 

B0X_4: 

B0X_5 : 

BOX J : 

B0X_7: 

BOX_E: 
End Sub 
Rem *PRCEND 
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<^-v: 262/ 



[02 7 5] 

ttm-£^i7 b)V<D§l : 0 9 0 

L3^4 (K/Bag/fffflHB/«[8M8) OS 4 0g?jgH§- 1 0 0 0 ) 
Option Explicit " 
Rem m VECDEF 
Rem SDEFPUB 
Rem PUB4N4 

Private W@K30O*31O*28§_§%29§_§*026 (@*26@, §K27§) As @%23@ 
Rem SDEFEND 
Rem SDEFPRV 
Rem PUBKU 

Private CNS_N0T__KUO5&238 As @%23@ 
Rem #DEFEND 
Public Sub MainO 

Rem SVECREP Private Sub S4JX31MX28§JX29§JX02§IX04818 0 



BOX J ; 




B0X_2 : 




Rem PUBKK 


B0X_3: 




B0X_4: 




BOX J : 




B0X_6: 




B0X_7: 




BOX_E: 




End Sub 


Rem *PRCEND 



IH2 7 6] 

tt§S-±^2? b;K£§J : 0 9 1 

L3^4 (K/mmm/mmii/timtk) <ds4 (tiwioio) 

Option Explicit 
Rem *** VECDEF 
Rem #DEFPUB 
Rem PUB4N4 

Private ff@%30On 10*280*290*020 (@*26@, @*27@) As @*23@ 
Rem #DEFEND 
Rem SDEFPRV 
Rem PUBKU 

Private CNS_NOTJ(UH_@*23@ As @*23@ 
Rem #DEFEND 
Public Sub MainO 

Rem SVECREP Private Sub S4_@*31O*28O*29O*02@8X04§18 0 

BOX. J : 

B0X_2: 
Rem PUBKK 

BOX J: 

B0X_4: 

B0X_5: 

B0X_6: 

B0X_7: 

B0X_E: 
End Sub 
Rem *PRCEND 
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[0 2 7 7] 

ttM-±^P b)MDM : 0 9 2 
L3354 (M/E^J|g|/»<ilB^«£»te) <ps 4 (gl$^1 0 2 0) 
Option Explicit 
Rem SDEFPUB 
Rem PUB4N4 

Private M*30OM 10*280*290*02® As ®&23@ 
Rem #DEFEND 
Rem JDEFPRY 
Rem PUBKIi 

Private CNS_N0T_KUH_@823@ As @S23@ 
Rem #DEFEND 
Public Sub MainO 

Rem #VECREP Private Sub SO*3iO*28O*29O*02@@%G4©18 0 

BOX J: 

B0X_2 : 
Rem PUBKK 

B0X_3: 

B0?L4: 

B0X_5: 

B03L6: 

B0XJ7 : 

BOX J: 
End Sub 
Rem *PRCEND 
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[M 2 7 8 1 

ttfi-^:^ hJKDgl : 0 9 3 

i3S4 (M/mm/mm^/m.ftm) <os4 (ti#^io3 0) 

Option Explicit 
Rem 3DEFPUB 
Rem PUB4N4 

Private W@*30O*31O*28@_@*29O*02@ As §5523© 
Rem ^DEFEND 
Rem #DEFPRV 
Rem PUBKU 

Private CNSJ^_KUOX23@ As @%23@ 
Rem #DEFEND 

Public Sub MainO 

Rem #VECREP Private Sub S4_@niO*28@_@X29O*02@@*04@18 0 



B0X_1: 




BOX J: 




Rem PUBKK 


BOX J: 




B0X_4: 




BOX J : 




BOX J : 




B0X_7 




BOX_E 




End Sub 


Rem *PRCEND 



ttm-±'<9 h)l<DM : 0 9 4 

L3i4 (M/mmm/&mm/j&&m) <os4 (fit^io4 0) 

Option Explicit 
Rem #DEFPUB 
Rem PUB4N4 

Private W@*30O*3 10*280*290*029 (6*26®, @*27@) As @*23@ 
Rem ^DEFEND 
Rem #DEFPRV 
Rem PUBKU 

Private CNS_NOTJttJH_@*23@ As @*23@ 
Rem #DEFEND 

Public Sub MainO 

Rem 3VECREP Private Sub S4.J*31O*28O*29O*02@@*04@18 0 

B0X_1: 

B0X_2: 
Rem PUBKK 

BOXJ : 

B0X_4: 

BOX _5 : 

B0X_6: 

B0X_7: 

BOX_E: 
End Sub 
Rem *PRCEND 
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[HI 2 7 9] 

yjvom : o 9 5 
L3%4 (M/Gimft/mto&/mftm) <ds4 (tis^ioso) 

Option Explicit " — 

Ren SDEFPUB 
Rem PUB4N4 

Private W@K30MniO*28@_@%29@_@*02@ (@*26@, @*27@) As 8*23@ 
Rem #DEFEND 
Rem #DEFPRV 
Rem PUBKU 

Private CNSJ*0TJOJIL@*23« As @%23@ 
Rem #DEFEND 
Public Sub Main 0 

Rem #VECREP Private Sub S4_@S31O*28@_@*29O*02@@a;04@18 0 

B0X_1 r 

B0X_2: 
Rem PUBKK 

B0X_3: 

B0X_4: 

B0X_5 : 

B0X_6 : 

BOO: 

BOX_E: 
End Sub 
Rem *PRCEND 



ttm- h)MDM : 0 9 6 

L3%4 (AJj7&iz7,*-/Xtimm3kf¥jr—) (PS 4 (fl#^1 0 6 0) 
Option Explicit 
Rem #DEFPUB 
Rem PUB4N4 

Private V«X30MX31§_«X28§_«29§_I N.Condi tions_KEY As Integer 
Rem PUB4N4 

Private W«530iJX31«JX28«_«X29§^INJiCCESSJCEY As Integer 
Rem PUB4N4 

Private CTJL@%31 SJX28MX2 9@_04JND As Boolean 
Rem #DEFEND 
Rem #DEFPRV 
Rem PUBKU 

Private CNSJIOTJCUHJnteger As Integer 
Rem #DEFEND 
Public Sub MainO 

Rem #VECREP Private Sub S4_@S31O*28O*29@_@S02@@X04«18 0 
BOXJ : 

Rem PUB04STS 

If CTIL«X31«JX28§JJ529§_04JND O True Then GoTo BOX J 



B0X_2 


» 


Rem PUBKK 


B0X_3 




B0X_4. 




BOXJ : 




B0X_6: 




B0X_7: 




B03LE: 




End Sub 


Rem *PRCEND 
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lH 2 8 0 ] 

k;kdsj : 0 9 7 

Option Explicit 
Rem #DEFPUB 
Rem PUB4N4 

Private W@S300*310*280*290UTj;onditionsJ(EY As Integer 
Rem PUB4N4 

Private WeX30§J%3]®_eX28§JX29§JOTJ^CCESS.KEY As Integer 
Rem PUB4N4 

Private CTO*31§_@mO*29§J)4J&ND As Boolean 
Rem SDEFEND 
Rem SDEFPRV 
Rem PUBKU 

Private CNSJWTJvUHJnteger As Integer 
Rem #DEFEND 
Public Sub MainO 

Rem #VECREP Private Sub S4_f%31M»28O*29O«02«§X04§18 0 
B0X_1: 

Rem PUB04STS 

If CTIL§X31MX28§JX29e - .04_END O True Then GoTo BOX J 



B0X_2: 




Rem PUBKK 


B0X..3 : 




B0X_4 : 




B0X_5: 




B0X_6 




B0X_7 




BOX.E 




End Sub 


Rem *PRCEND 
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[B2 8 1] 

tt&-£^t7 b)l<DM : 0 9 8-1 

jE^/a^/E^j^/^fflasxa^iPL a (*gm^ i o 8 o - 1 > 

Option Explicit 
Rem #DEFPUB 
Rem PUB4N4 

Private W@*3GO*3 10*280*290*02© As String 
Rem PUBIN4 

Private W@*305O*315O*285O*295O*200@ As @*235@ 
Rem PUB5C4 

Private CTRL„W@%30O«28O*296.STS_TRANSITI0N_FLG As Integer 
Rem PUB5Y4 

Private CTRL_ff@»30§„©%28§ - @Sl529OTS„TRANSITI0N FLG P As Integer 
Rem PUB5B4 

Private CTRLJ@X30OX28MX29^STS - TRANSITI0NJFLG PP As Integer 
Rem PUB6F4 

Private CTRL_W©*30O*3 1 §.§35 2 80*290*0 2i_N0T VALID FLG As Boolean 
Rem #DEFEND 
Rem PUB4B4 

Private W@*300O*3 100*2800*2900*2008 As String 
Rem PUB4N3 

Private W3_@*3 10*280*290*02© As Integer 
Rem PUB4N2 

' Private W2__§*3 10*280*290*02® As String 
Rem #DEFPRV 

Rem PRV2T4 

Private W@*30O*31O*28O*29@ @*02@_wk As String 
Rem PRV7R4 

Private CTRL_W@*30O*29@JNG_FLG As Boolean 
Rem *PUBKU 

Private CNSJWTJOJILStnng As String 

Private CNSJMTJUJHJnteger As Integer 

Private CNS_NOTJOJH_Boolean As Boolean 

Private CNS_NOT_KUH_Long As Long 

Private CNS_NOTJUJfLS ingle As Single 

Private CNSJWTJOJHJ)oubIe As Double 

Private CNS_N0TJOJH_Va riant As Variant 

Private CNSJiOTJOJH_Currency As Currency 

Private CNSJWTJCUHJyle As Byte 

Private CNSJJ0TJOJHJ)ate As Date 
Rem $PRV2W4 
§*I72i 
Rem SPRV2E4 
Rem SPRV4W4 
@*182@ 
Rem $PRV4E4 
Rem #DEFEND 

Public Sub MainO 

Rem 3VECREP Private Sub L4_@*3 lO*28O*29O*02O*07@0 
BOX J : 
Rem PRVLG 

If W@*30O*31O*28O*29O*02@ = CNSJWT__KUH_String And 
Rem PRVLG 

W3_@*3 10*280*290*028 = @*07@ Then 
GoTo BOX.J 
End If 



ffiiE# 2 0 0 4 
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: 268/ 



IH 2 8 2 ] 

hJKDM : 0 9 8-2 

iEm/mti/mmm/mmm/mftmv>L a {^m^n i o 8 o - 2 ) 

G0T0I0O " 

B0X_2 : 
Rem PUB IN 

If WeX305O»315e_iJK285O«295OX200@ = CNS NOTJvllH 8*235§ Then Go To Box_3 
Rem PRVLG 

§X17i 

Rem PRVLG 

W@%30§_@«31@_^28O3529OX02@_wk = " V 
B0X_3: 

Rem PRVLG 

If W^30@_§«3IO^28@_^29O^02Ok O CNSJWTJvUILString Then 

G0T0 B0X_4 
End If 

G0T0 B0X_5 

B0X_4 : 
Rem PRVLG 

W@X30OB31O*28@_@%29@_@*02@ = W@M0O*3lO*28On9O*02@jvk 
Rem PRVLG 

CTRLJ%30O^28O^29@_STSJRANSIT10N_FLG = CTRL_W@SK30O^28@_@*29^STS_TRANSIT10N_FLG + 1 
GoTo BOXJ 

B0X_5 : 
Rem PRVLG 

I f CTRL_W@X30O»28O»29MTS_TRANSITI0N_FLGJ 
= CTRL_W@X30O*28O*29@„STS^TRANSITI0N_FLG_PP Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

B0X_6 : 
Rem PRVLG 

CTRLJ^30O»31O^28@_@^29O»02O0TJ r ALIDJLG = True 
GoTo BOXJS 

B0X_7 : 
Rem PRVLG 

CTRLjm30@@S29@JNG_FLG = True 
GoTo BOX_E 

BOXJE: 
End Sub 
Rem *** PRCEND 
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[11 2 8 3 ] 

ttB-±H7 hJKDM : 0 9 9 -1 

iEM/mjj/&mm/mmi&/mftm<DL a (tiw i o 9 0 = 1 > 

Option Explicit — 
Rem #DEFPUB 
Rem PUB4N4 

Private W@*30OS31O*28@_@%29@_@*02@ (@X26@, @»27@) As String 
Rem PUBIN4 

Private W@«305@_@X315O35285@_@«295O»200@ (@%265@, @*275@) As @X235& 
Rem PUB5C4 

Private CTRLJ@^30O«28OX29@_STS^TRANSITI0NJLG As Integer 
Rem PUB5Y4 

Private CTRLJ"@X30O%28O»29@^STS^TRANSITI0NJLG_P As Integer 
Rem PUB5B4 

Private CTRLJ^30M«28O%29@^STS_TRANSITI0NJLG_PP As Integer 
Rem PUB6F4 

Private CTRL_W@*30O»31O^28OX29O^02O0T.VALID_FLG (@S26@, @*27@) As Boolean 
Rem #DEFEND 

Rem PUB4B4 

Private W@X300O«310O^280@^290O%200@(@X26@.@%27@) As String 
Rem PUB4N3 

Private W3_@afi31O%28O^29@_@%02@(@*26@,@*27@) As Integer 
Rem PUB4N2 

Private W2_TOl@^28O*29O%02@(@X26@,@X27@) As String 
Rem SDEFPRV 

Rem PRV2T4 

Private ^30@_^318_e%28O*29O«02Ok(8%26@. @K27@) As String 
Rem PRV7R4 

Private CTRL_W@%30OS29@JNG_FLG As Boolean 
Rem *PUBKU 

Private CNSJ^JOJlLString As String 

Private CNSJWTJOJHJnteger As Integer 

Private CNS_NOTJOJOoolean As Boolean 

Private CNS_N0TJ0JH_Long As Long 

Private CNS_NOT_KUILS ingle As Single 

Private CNSJ<OTJvUHJ)ouble As Double 

Private CNS_N0OUH_Va riant As Variant 

Private CNS_NOT_KUH_Currency As Currency 

Private CNSJJOTJCUOyte As Byte 

Private CNS_NOTJvUHJ)ate As Date 
; Private Gyou as Integer 

Private Retu as Integer 

Private UU_Cnt as Integer 

Private Soto_Cnt as Integer 

Private Utijfax as Integer 

Private SotoJIax as Integer 
Rem $PRV2W4 

Rem $PRV2E4 
Rem SPRV4W4 

m>\m 

Rem $PRV4E4 
Rem #DEFEND 
Public Sub MainO 

Rem SYECREP Private Sub L4_@*31O*28O*29O*02O*07@ 0 
| Gyou = 0 
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im 2 8 4 ] 

ttm-±H? h)l<DM : 0 9 9-2 

lE^ffi^/iB^J^/'^ffi^/ia^CDL 4 1 0 9 0-2) 

Retu = 0 ~~ 
Rem PRVLG 

If @*34@ < mm then 
Rem PRVLG 

UtiJIax = @*26@ 

Rem PRVLG 

Sotojfax = @*27@ 

End If 
Rem PRVLG 

If @*34@ > mm then 
Rem PRVLG 

UtiJIax = @S27§ 

Rem PRVLG 

SotoJIax = @*26@ 
End If 
UtLCnt = 0 
SotoJJnt = 0 
Do Until Soto_Cnt = Soto_Max + 1 
UtLCnt = 0 
Rem PRVLG 

if mm < mm then 

Gyou = UtLCnt 

Retu = Soto_Cnt 
End If 
Rem PRVLG 

if mm > mm then 

Gyou = SotoJ)nt 
Retu = UtLCnt 
End If 

Do Until UtLCnt = UtiJIax + 1 
BCDL1: 
Rem PRVLG 

If W8X308^9X31§JX28§_§5i;29§JX02§ (Gyou. Retu) = CMS JIOTJOIH String And 
Rem PRVLG 

ff3_@X3ie_§m®_@S29O*02i (Gyou. Retu) = @S078 Then 
GoTo B0X_2 
End If 

GoTo B0X_E 

B0X_2 : 
Rem PUB IN 

If W©X305O*3158„@X285M%295§_§JU200i (Gyou. Retu) = CNSJWTJOJH_@%2350 Then Go To Box_3 
Rem PRVLG 

mm 

Rem PRVLG 

W@S30O*31Omo*29O*02@_wk (Gyou, Retu) = T 
B0X_3: 

Rem PRVLG 

If ff@«30OX3IO^28O«299_@«02@_wk (Gyou. Retu) O CNSJWTJOJILString Then 

GoTo B0X.4 
End If 

GoTo B0X_5 

B0X_4: 
Rem PRVLG 
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[H2 8 5] 

ft$k-£'<9 b)V<DM : 0 9 9-3 

jEa/M^/^jgyJg/ffffl^/«ffai(OL 4 (ffa#if 1 0 9 0 -3) 

W0X3OM&3 ie_§M8MX29§_§X02§ (Gyou. Re lu) = ff@X30O*3 10*280*29® @%02i.wk (Gyou, Re tu) 
Rem PRVLG 

CTRLJ@X30§_t»28@_@X29@.STSJRANSIT10NJLG = CTRL jeX30«JX28«.iX29§-STS„TRANSIT ION JLG + 1 
GoTo BOX_E 

B0X.5: 
Rem PRVLG 

If CTRL_ff@X30OX28O^29@_STS„TRANSIT10N_FLGJ 
= CTRLJ*«30i_§X28i_fiX29«_STS_TRAHSITIONJ ? LGLPP Then 

GoTo B03L6 
End If 

GoTo B0X_7 

B0X_6: 
Rem PRVLG 

CTRL J§X30MX31i_§X28«_W29§_W02§JI0OALIDJLG (Gyou. Relu) = True 
GoTo BOX_E 

B0X_7: 
Rem PRVLG 

CTRLJ"@*30@_@*29®_ING_FLG = True 
GoTo BOX_E 

BOX J: 

UtLCnt = UtLCnt + I 

Rem PRVLG 

If 0*348 < @*35@ then 

Gyou = UtLCnt 

Retu = Soto_Cnt 
End If 

Rem PRVLG 

If @X348 > @*35@ then 

Gyou = Soto_Cnt 

Retu = UtLCnt 
End If 

Loop 

Soto_Cnt = Soto_Cnt + 1 
Rem PRVLG 

If @*34@ < @*35@ then 
Gyou = UtLCnt 
Retu = Soto_Cnt 
End If 
Rem PRVLG 

If @*34@ > @X35@ then 
Gyou = Soto_Cnl 
Retu = UtLCnt 
End If 
Loop 

Gyou = 0 
Retu = 0 
UtLCnt = 0 
Soto_Cnt = 0 
Uti Jtfax = 0 
SotoJIax = 0 
End Sub 

Rem *** PRCEND 
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[ H2 8 61 

h;KDS : 10 0-1 

iE&/mt)/mmm/%mG/mRm<DL 4 (gggg hoo-d 

Option Explicit 
Rem #DEFPUB 
Rem PUB4N4 

Private W0X3OOX3 1OX28OX29OX02® As String 
Rem PUBIN4 

Private W6X305OX3 15OX285OX295OX200® As @X235@ 
Rem PUB5C4 

Private CTRLJ'§X30§.§X28MX29§JTS.TRANSITIONJ ? LG As Integer 
Rem PUB5Y4 

Private CTRLJ@X30OX28OX29OTSjrRANSITI0N_FLGJ> As Integer 
Rem PUB5B4 

Private CTRL.WiX30MX28MX29§_STSJRANSITIONJ'LGJP As Integer 
Rem PUB6F4 

Private CTRLjraX30OX31OX28OX29OX02O0T_YALID_FLG As Boolean 
Rem #DEFEND 
Rem PUB4B4 

Private W@X300OX3 10OX280OX290OX2008 As String 
Rem PUB4N3 

Private W3.JX3 1OX28OX29OX02® As Integer 
Rem PUB4N2 

' Private W2_@X31®__@X28®_@X29@_@X02® As String 
Rem #DEFPRV 
Rem PRV2T4 

Private ff®X30@_®X3l®_®X28@_JX29®_®X02Ok As String 
Rem PRV7R4 

Private CTRLJf@X30®_@X29®JNG_FLG As Boolean 
Rem *PUBKU 

Private CNSjNOTJCUflLString As String 

Private CNSJWTJOJHJnteger As Integer 

Private CNS JOT JttlOoo lean As Boolean 

Private CNS_N0T_KUH_Long As Long 

Private CNS_N0T_KUH_S ingle As Single 

Private CNS_NOTJCUH_Double As Double 

Private CNSJWTJOJlLVa riant As Variant 

Private CNS_NOT_KUH_Currency As Currency 

Private CNS_NOT_KUH_Byte As Byte 

Private CNS_NOT_KUHJ)ate As Date 
Rem SPRV2W4 
0X1726 
Rem $PRV2E4 
Rem SPRV4W4 
@X182@ 
Rem SPRV4E4 
Rem #DEFEND 

Public Sub MainO 

Rem #VECREP Private Sub L4J&X31@_@X28@_@X29@_@X02®_@X07® 0 
B0X_1: 
Rem PRYLG 

If W§X30OX3 1OX28OX29OX02© = CNS_NOTJCUH_String And 
Rem PRYLG 

W3JX3 1OX28OX29OX029 = @X07® Then 
GoTo B0X_2 
End If 
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tt&-±'<2 h)lo>m : 100-2 

&fo/mti/&wm/mfati/mRm<Di.4 (gjg^i 100-2) 

Colo box_e " 

B0X_2: 
Ren PUB IN 

If ff§X305O35315M«285M%295§_§X2008 = CNS NOT KUOS235© Then Go To Box_3 
Rem PRVLG 

6% 176 
Rem PRVLG 

ff©%30e_eX3l©_©X288_e%299._e*028_wk = ' I" 
B0JL3: 
Rem PRVLG 

If ™30MX316_6X28§_§X29OX02§_wk <> CNS_NOTJO)H_Stnng Then 

G0T0 B0X_4 
End U 

G0T0 B0X_5 

BOX J: 
Rem PRVLG 

W©X30©_e*3)©_eX288_8X29§_©X02© = W8X3Qe_eX318_9X28e_©X29&_©X02©_wk 
Rem PRVLG 

CTRLjeJ530MX28e_e«298_STS_TRANSlT10N_FLG = CTRLJTeX308_©X288_8X29© STS TRANSITION.FLG * 1 
GoTo BOX.E 

B0X_5: 
Rem PRVLG 

If CTRL_ft©X30OX28MX29§_STS^TRANSITI0N_FL(LP ■ CTRLjreX308_eX28e._eX298_STS TRANSITION FLG PP Then 

GoTo B0X_6 
End If 

GoTo B0X.7 

B0X_6: 
Rem PRVLG 

CTRL3eX308_©«3ie_fiX28©_«X299_eX02O0T_VALID_FLG = True 
GoTo BOX_E 

B0X.7: 
Rem PRVLG 

CTRL_TO30©_©X29©JNG_FLG = True 
GoTo BOX J 

BOJLE: 
End Sub 

Rem *♦* PRCEND 
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Option Explicit 
Rem #DEFPUB 
[Rem PUB4N4 

Private W§as30e.eX31«JX28§_W29e_§X02«(IX26§. §X27§) As String 
IRem PUBIN4 

Private W§X305«_§X3l5§_§X285i_iX295®.«X200l «X268§. «X275§) As 0X2356 
IRem PUB5C4 

Private CTRLJ§as30@_§X28OX29@.STS„TRANSITI0N_FLG As Integer 
IRem PUB5Y4 

Private CTRL_ff@»30O«28OX29^STS_TRANSIT10N_FLG^P As Integer 
IRem PUB5B4 

Private CTRL3^30O%28O^29OTS.TRANSITI0NJLGJP As Integer 
IRem PUB6F4 

Private CTRL„ff§X30O»31®_eX28@.§«29OX02O0OALIDJ r LG(ea526e. §*27§) As Boolean 
IRem #DEFEND 
lien PUB4B4 

Private W§X300i_§X310i_§X2808 M1 «l5290e_§X200§»X26§. §%27«) As Siring 
IRem PUB4N3 

Private W3.e%31«_«X28§_e«29§JX02®(§X26§. §X27§) As Integer 
IRem PUB4N2 

Private W2_flX3l®.§X28§JX29i.®X02«(«X26« t «X27» As String 
[Rem #DEFPRV 

[Rem PRV2T4 

Private W«X30ejX31MX28MX29§_§X02«^wk(§X268 f §X27i) As String 
IRem PRV7R4 

Private CTRLJ'@*30O*29@_INGJ ? LG As Boolean 
IRem *PUBKU 
Private CNSJTOTJKUILString As String 
Private CNSJWTJOJHJnteger As Integer 
Private CNSJWTJOIILBoolean As Boolean 
Private CNS_NOTJUJHJLong As Long 
Private CNSJIOTJOJO ingle As Single 
Private CNS_NOT_KUHJ)ouble As Double 
Private CNS_N0TJOJILVa riant As Variant 
Private CNSJWT_KUH_Currency As Currency 
Private CNSJJOT_KUH_Byte As Byte 
Private CNS_NOT_KUH_Date As Date 
Private Gyou as Integer 
Private Retu as Integer 
Private Uti_Cnt as Integer 
Private Soto_Cnt as Integer 
Private Utijlax as Integer 
Private Sotojtfax as Integer 
[Rem $PRV2W4 

Rem IPRV2E4 
Rem $PRV4ff4 
pi 826 
Rem SPIV4E4 
IRem #DEFEND 

Public Sub MainO 
|Rem #VECREP Private Sub L4JX31OX28§_@X29i_§X02§„§X07® 0 
Gyou = 0 
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ftffik-^* MUDffi! : 10 1-2 

XEm/ffi^Xffl^^^X^MOL4 (glg^l 110-2) 

Retu = 0 
Rem PRVLG 

W 6X346 < §*35© then 
Rem PRVLG 

UUJlax = 656269 

Ren PRVLG 

SotoJIax = ©X27S 

End If 
Rem PRVLG 

If ©X348 > 655350 then 
Res PRVLG 

OlLMax = ©*27© 

Rem PRVLG 

SotoJIax « ©X266 
End If 
Uti.Cnl * 0 
Soto_Cnt - 0 
Do Until Soto.Cnt = SotoJIax t I 
Uti.Cnl = 0 
Rem PRVLG 

If 8X349 < ©X35© then 
Gyou = UlLCnt 
Retu ■ Sotojtot 
End If 
Rem PRVLG 

if 9X34© > 9X359 then 
Gyon = Soto_Cnt 
Retu * Uti.Cnt 
End If 

Do Until Uti_Cnt = Uti_Max t I 
BOXJ: 
Rem PRVLG 

If B©X3Q9_9X3l9_©X288_9X29©_8X028{Gyou, Retu) = CNS^NOT_KUH_String And _ 
Rem PRVLG 

tf3_.aX319_©X28©_.8X298._eX02© (Gyou. Retu) = ©X07© Then 
GoTo B03L2 
End If 

GoTo BOX_E 

B0X.2: 
Rem PUBIN 

U m305§_©X3l5©_9X2859_§X295©_©X2008{Gyou.Retu) = CNS_N0TJCUH_©X235© Then Go To Box_3 
Rem PRVLG 

©xn© 

Rem PRVLG 

ff8X30&_©X31©_9X289_©X29§_9XQ29_wk (Gyou, Retu) = ' V 
B05L3: 
Rem PRVLG 

If m309_9X3!©_©X289_9X299_9X029jyk (Gyou, Retu) O CNS_NOTJ(UB_String Then 

GoTo B0X_4 
End If 

GoTo B0X_5 

B0X.4: 
Rem PRVLG 
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ntft-±^ V)V<J>m : 10 1-3 

ffeX30B_eX31&_ex28©_§X29&„8X029(Gyou, Retu) = ff@X30OX31§_§X28OX296_6H)26j<rk (Gyou. Retu) 
Rem PRVLG 

CTRL_ff§X30M3528§_§X298_STS_TRANSITlON.FLG = CTRLje%3O0_e«28i_0X298„STS_TRANSITIONJ ? LG \ I 
GoTo BOJLE 

B0X..5: 
Rep PRVLG 

If CTRLJ6«30OX28e^298^STS_TRANSITI0N_FLG_P 
= CTRLj;§X308_6X28e_6X29e_STS_TRANSlTI0NJ ? LG_PP Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

B0X.6: 
Rem PRVLG 

CTRLJ§X30MX31§_e3S28§_8X29e_§5502e_N0TJ'ALID_FLG(GyoiuRelu) * True 
GoTo BOO 

B0X_7: 
Rem PRVLG 

CTRL3©as300L_©5629©_ING_FLG = True 
GoTo BOX_E 

BOXJ: 

Uli_Cnt = UtLCnt + 1 

Rem PRVLG 

If 8X346 < 6X356 then 

Gyou * UtLCnt 

Retu = Soto.Cnt 
End If 

Rem PRVLG 

If 6X346 > 1*359 then 

Gyou = Soto_Cnt 

Retu = UtLCnt 
End If 

Loop 

Solo.Cnt = Sotojtot + \ 
Rem PRVLG 

If 695348 < §35358 then 
Gyou = UtLCnt 
Retu = Soto_Cnl 
; End If 
Rem PRVLG 

If 6X348 > 6X356 then 
Gyou = Soto_Cnt 
Retu = UtLCnt 
End If 
Loop 
Gyou = 0 
Retu = 0 
UtLCnt = 0 
Solo_Cnl * 0 
UtiJIax * 0 
SotoJIax - 0 
End Sub 
Rem *** PRC END 
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IE&/ffl:&/E^&/^<E&/ifc##0L 4 112 0-1) 



ption Explicit 
Rem 3DEFPUB 
Ren PUB4N4 

Private »8X306_6X318_e%288_aX298Jft028 As String 
Rem PUBIN4 

Private W8X3O56_eX315e_©X285§_eX2950_8X2OO8 As 6552350 
Rem PUB5C4 

Private CTRLjr§X308_8X288_8X298jTS_TIWSITI0NJ ? LG As Integer 
Rem PUB5Y4 

Private CTRL3*8X30e_8X28M*29e_STS_TRANSm0NJT.G_P As Integer 
Rem PUB5B4 

Private CTRL_«eX308_W28§_eX298_STS_TRANSIT10N_FLG_PP As Integer 
Rem PUB6F4 

Private CTRL_ffeX308_8X31©_§«28MX299_e3502M0O , ALID_FLG As Boolean 
Rem 3DEFEND 
Rem PUB4B4 

Private ra300§_8X3108._e%280§_.eX290e_.eX20Q8 As String 
Rem PUB4N3 

Private W3_6X3ie_8X28e__§X29e..eX028 As Integer 
Rem PUB4N2 

Private ff2_©as3 l®_©X28e_@3B299_§X02© As String 
Rem SDEPPRV 
Rem PRV2T4 

Private W8X30§_§X3 18.8X2 88_8X298_§X02Mk As String 
Rem PRV7R4 

Private CTRL_ffeX308_©X29§JNG_FLG As Boolean 
Rem tPUBKU 

Private CNSJiOTJUJILSlring As String 
Private CNSJIOTJfflHJnteger As Integer 
Private CNSJtOT_KUB_Boolean As Boolean 
Private CNS_NOTJiUH_Long As Long 
Private CNSJiOT_KUB_S ingle As Single 
Private CNSJTOTJttnLDouble As Double 
Private CNSJIOTJOftLVa riant As Variant 
Private CNS_NOTJ(UlLCurrency As Currency 
Private CNS_NOTJCUH_Byte As Byte 
Private CNSJiOTJHJHJJale As Date 
Rem IPRY2W4 
8* 1728 
Rem SPRY2E4 
Rem SPRY4V4 
8X1828 
Rem IPRY4E4 
Rem 3DEFEND 
Public Sub MainO 
Rem iVECREP Private Sub L4_©X3I§_eX28MX29e_eX028_eX07BQ 
B03L1: 
Rem PRYLG 

If W8X3G8__8X3ie_eX28§_eX29e_eX028 * CNSJ«OT_KUlLSlring And _ 
Rem PRVLG 

W3_8%319_eX28e_0X29e_§XO28 = 8X078 Then 
GoTo B0X_2 
End If 
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h)V<OM : 10 2-2 

jEMsmfi/wjmm/&mm/mn j f[(OL 4 (gggrei 120-2) 

G0T0 BOO 

BOX J : 
Rem PUB IN 

If «eX305e_8X3]5§JX285§J%295« - SX200§ = CNSJNOTJCML*%235t Then Go To Box_3 
Rem PRVLG 

§3517® 
Rem PRVLG 

Ve%30MSU3ie.@!628§_§X29MS502ijfk = T 
BOO : 
Rem PRVLG 

If Vi©X30e„§363l6_§X28e.e%29O802Mk O CNS_NOT_KUH_String Then 

G0T0 B03L4 
End If 

G0T0 B0X_5 

B0X_4: 
Rem PRVLG 

W@*30OS318_@M8O*29O*026 = TOX3OM*31M*28MX290j6m®jrit 
Rem PRVLG 

WeX3Q0e_«m0e J«28OM*29O§_®X20O« = W§X30M*31M%28©_OT29©_«X02« 
Rem PRVLG 

CTRLJW30O«28@_«X29@_STS^TR.\NSITI0NJ ? LG = CTRLJ*eHS30§_«X28O%29^STS„TRANSITI0NJ f LG + 1 
GoTo BOO 

B0X_5 : 
Rem PRVLG 

I f CTRL JW%30©L4X28t_i2 2 9@_STS_JRANS I T 1 0N_FLG_P 

= CTRL_W8%30@_@%28@_^29@_STS^TRANS1TIONJLGJP Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

B0X,6: 
Rem PRVLG 

CTRLJW30fl_eX31i_8X28«_W29e„®«02§JNOTJ r AL[DJ ? LG = True 
GoTo BOX J 

B0X_7: 
Rem PRVLG 

CTRLJ&@S3QOS29@_ING_FLG = True 
GoTo B0X_E 

BOX J: 
End Sub 

Rem *** PRCEND 
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1Etil/mi]/&mB 13 0-1) 

Opllon Explicit 
Reo SDEFPUB 

Ren mm 

Privalc «W30&_«C3 1 0«88_W29MX02§ As SI ring 

Ren mm 

Privale ft«30aM%3l5§_W2856_«l295&_W200§ As 6*2356 
Ren PIB5C1 

Private CTRLJW30^W28M%296_STS„TRANS[TI0N_FLG As Integer 
Reo PTOM 

Private CTRLje»30e_«28M*2Se.STS.TRANSITI0N_FLG_P As Integer 
Reo PUB5B4 

Private CT^©X30M«B6_eX299_STS.TRASSITION_FLCLPP As Integer 
Rem PUB6P4 

P r i vat e CTRL je*306Jr*3 1M*288_8W9§_§X02B JWT.VAl I DJFLG As Boolean 
Ren SDEFEMJ 
Rem PUB4B4 

Private m300^t«3108_W2808_§t290M«00§ As String 
Ren PU6-IN3 

Private *3_eS31«JK286_«29&_eX02* As Integer 
Ren PCB4N2 

' Privale «2_IX3I§_§S28§_W29S_§X02* As Sir ins 
Rem 3DEFPRV 
Reo PRV2T4 

Privale ««308_«3I§_«28M*29Mt02§.wk As Siring 
Reo PRV7R4 

Private CTRl_m30e_e«9§JNGJ?lG As Boolean 
Reo *Pl!BKU 

Private CNSJlOT_Kl!H_String As Siring 
Private CNSJfOTJUJHJnleger As Integer 
Private CNSJIOTJCClLBoolean As Boolean 
Private CNSJlOTJCUHJLong As Long 
Private CNSJK>TjaiH_Slnsle As Single 
Private CNSJIOTJOIOoable As Double 
Private CNSJiOTJUJH_Va riant As Variant 
Private CNSJtOTJOJH_Currency As Currency 
Private CSS_NOTJiUH_Byle As Byte 
Private CNSJJOTJ\UHJ)ate As Date 
Reo SPRY2V4 

sum 

Reo IPRV2E4 
Reo *PRY4*4 
6X1829 
Reo SPRY4EJ 
Reo S DEFEND 
Public Sub Alain 0 

Ren 3VECREP Private Sub L4_§X3l§_e*280X29« 8XQ2MXQ7G0 
BOXJ: 
Ren PRYLG 

If ««30MX31MX28MX29MX02§ * CNSJJOTJMLSlring And 
Ren PRVLG 

»3_«31M»28M«9^«02§ = 9X079 Then 
GoTo B0X.2 
End If 
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&m/\&ii/&mm*/^mm/m.Rftv> i L a (g«## 3330-2) 

G0T0 BOXJE 

B0X_2: 
Rem PUB IN 

If W@*305O*315O*285OS295O*200@ = CNSJK)TjaJIL«*235« Then Go To Box J 
Rem PRVLG 

Rem PRVLG 

W§X30^§XSIi^§X28§_«X29MX02«_wk = 'I* 
B03L8 : 
Rem PRVLG 

If «"flX30« - «31O_«l528M%29§_W02i.wk O CNS JOT JOIHJl ring Then 

G0T0 B0X_4 
End If 

G0T0 B0X_5 

B0X_4: 
Rem PRVLG 

Wfl*30§_SX31§_W28MX29§J%02& = WfiX30§_tX31l_W28«_IX2M_«»02e.wk 
Rem PRVLG 

T«%300§.«JU3IO«_«I280§_§J5290§ - «S2008 = m8Oi_«E3ie w 0X28§.iS298_iXO2§ 
Rem PRVLG 

CTRL_VW30t«X28MX29»JTS_TKANSITI0NJ f LG = CTRLJ§X30©_«X28§_«29ejTS_TRANSITIONJLG \ 1 
GoTo BOX J 

B0X_5 : 
Rem PRVLG 

I f Cm jW30«_m88 - «29ejSTS,TRANSITIONJLGJ > 
= CTRLJ^30O^28O«29@^STS_TRANSITI0NJ ? LGJP Then 

GoTo B0X_6 
End If 

GoTo B03L7 

B03L6 : 
Rem PRVLG 

CmjM30§„«X31«_«28e_§%29«^W02«JiOTJ'ALIDJ ? LG = True 
GoTo B0X_E 

B0X_7: 
Rem PRVLG 

CTRLJfc%30§J*29«JNG_FLG = True 
GoTo B0X_E 

B0X_E: 
End Sub 
Rem *** PRCEND 
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^gBg/jgggOL 4 (gigffr^ 1 1 4 0 - J ) 

Option Explicit 
Rem 3DEFPDB 
Ren PUB4S t 

Private W}X308_8X3 1 8 _«288_ex298_6X02& 18X268. 6X276) As St r i ns 
Ren PUB 1X4 

Private B8*305Mttl58_8X2858._8X295«LeX200e (8X2656. 8X2758) As 6X2358 
Rem PUBSC4 

Private CTRLJ^X308JX286_8X298jn"SjrRANSmONJ r LG As Integer 
Ren PTO5Y4 

Private CTRL_«eX30§_6X28M*29&-STS_Tll\NSITlONJ ? LG_P As integer 
Ren PVBSB4 

Private CTRL^«308_e5t28MX298.STS_TR.«(SITlON_FLr L PP As Integer 
Ren PUB6F4 

Private CTRL_»6X306_es3ie„§X28MX2ye_M02&_NOT_VALID_FLG{eX26«. 8*278) As Boolean 
Ren 5 DEFEND 
Ren PUB4B4 

Private ^SOOMW 1 06_§X2806_6X2908_8X2006 18X268. 8X278) As String 
Rem PUB4N3 

Private A3.6X31 6_8X288j!X29e_e*02e (&X266, 8X276) As Integer 
Ren PUB4N2 

1 Private »2J*3 1 6_§X288_8X 2 96_8X028 18X266. 6X276) As String 
Ren sDEFPRV 
Rem PRV2T4 

Private ft6X3O6_6*31&_6X286_8X298_eX026_wk (6X2B&. &X276) As String 
Rem PRV7R4 

Private CTRLjrex306„8X296_lNG_FLG As Boolean 
Ren tPUBKU 

Private CNSJiOTJOJuLString As Siring 

Private CNS.SOTJvUHJnteger As Integer 

Private CNSJiOT_KUH_Boolean As Boolean 

Private CNS_tfOTJCUH_Long As Long 

Private CNSJTOTJvULS ingle As Single 

Private CNSJ{0TJtt1IJ)oub)e As Double 

Private CNSJiOTJCtfllVa riant As Variant 

Private CNS_KOT_KUlLCurrencv As Currency 

Private CNSJIOTJCuTLByle As Byte 

Private CNSJIOTJvUHJJale As Date 

Private Gyou as integer 

Private Retu as integer 

Private ElLCnl as Integer 

Private Soto_Cnl as Integer 

Private Ulijiax as Integer 

Private Sotojlax as Integer 
Rem SPRY2*4 
8X1728 
Rem $PRV2E4 
Rem $PRV4W4 
8X1828 
Ren 5PRV4E4 
Rem flBEFEND 

Public Sub MainO 

Rem iVECREP Private Sub L4_8X318_6X286..6X29&_6X02e0 
Gjou a D 
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Re In - 0 
Ren PRVLG 

If < §*356 l hen 
Rem PRVLG 

nijtax = 6*206 

Rem PRVLG 

SotoJJax - 6*276 

End If 
Reo PRVLG 

If 6*346 > 6*35* then 
Ren PRVLG 

Uiljlax - 6*278 

Ren PRVLG 

Sotojfax * 6*266 
End If 
I'MJCbI = 0 
Soto_Cnl b 0 
Do Until Solojlnt c SotoJJax ♦ I 
UtLCnl = 0 
Ren PRVLG 

If 6*346 < 6*356 then 
Gyoo * Cli_Cnl 
Relu - Solo_lol 
End If 
Ren PRVLG 

If 6*346 > 6X356 then 
Gyou « Solo_Cni 
Retu - UtLCnl 
End If 

Do Until UtLCnt = L'ttJIax 4 ) 
BQXJ: 
Ren PRVLG 

If m306._6M16_6X286_e*29&._6*[)26 (Gyou. Relu) * CNSJK)T_KUH.Strinfi And 
Sen PRVLG 

ff3 - 6*3ie_§*286_6*29«^6X026(Gyou.Retn) = 6*076 Then 
GoTo B0XJ2 
End If 

GoTo BOX_E 

8QX_2: 
Ren PUBIN 

If 8e*3056„6*3l56_6*2858_6X2956^6*2006(Gyou,ReluI * CNS_N0TJrt!O*235e Then Go To Box 3 
Ren PRVLG 

6*176 
Ren PRVLG 

ffe*306^6*3l6_e*28§^6*296_6*02e_Bk(Gyou.Retu) * " I* 
B0X_3: 
Ren PRVLG 

If W6X306_e*3]6_e*286^§*296.6W26_wklGyou.Relu) O CNS_NOT_KTOLString Then 

GoTo B0X_4 
End If 

GoTo B0X..5 

B0X_4: 
Rem PRVLG 
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frS-fc^ ht\><nm : 10 4-3 
iE«/fflfr.''g3Jft. sT'ig/<g^0L4 (fflgjft^l 14 0-3) 

Ren PRVU 

m3OO6J;X31Oe_§X28O6_6X290&_OT2OOeCGyoii. Retu) = B 6X306.6X3 16_e\ 286.6 V29MX026 (Gyou. Relu) 
Sen PRVLG 

CTRLje*30§_»28§JX296.STS»TR.y<SIT10NJ : LG = CTRLJ 8X3 06.6X2 86.6X2 96_STS TRANSITION FLG + I 
GoTo BOX_E 

B01.5: 
Ren PRYLG 

I f CTBL.*6X306_6X28§_6X296_STS.TRANS I T 10N.FLG.P 
= aRL_m30^tt28e_e%29e_STS_TRANSITlON_FLG.PP Then 

GoTo B0X.6 
End U 

GoTo B0X.7 

B0X.6: 
Ren PRVLG 

CTRL J6X306.6X3 1 6JJX286_6X29&_61026.NOLVAL I D.FLG (Gyoo. Re t u) «= T rue 
GoTo BOX_E 

B0X.7: 
Rpd PR\1G 

CTRLJS6X306.6X296_ING.FLG * True GoTo BOLE 
BOXJ-: 

IMLCni = UlLCnl * ) 

Res PRVLG 

If 6X346 < 8J356 then 

Gyou « UlLCnt 

Retu = Soto^Cnt 
End If 

Rem PRVLG 

If 6X346 > 6X350 then 

Gyou ■ Solo.Cot 

Rem « UlLCnl 
End U 

Loop 

Soto.Cnl * Solo.Cni + I 
Reo PRVLG 

If 61346 < 02356 then 
Gyoo c UlLCnl 
Relu = Solo.Cni 
End If 
Ren PRVLG 

IT 6X346 > 6X356 then 
Gyou - Solo.Cni 
Relu = UlLCnt 
End U 
Loop 

Gyou - 0 

Relu ■ 0 

UlLCnl = 0 

Soto.Cnt » 0 

UtlJIax = 0 

Sotojlax * 0 
End Sub 
Ren **♦ PRCEND 
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TO-A^dP I* from : 10 5-1 

m& 'B1J -'teWfi. ZfmH/}$LYl-4i<DL4 (gigffiq- 1 I 5 0-1) 

Option Explicit 
Ren JPEFPUB 
Rtta PUB4N4 

P r I va t e «6X306 .6X3 le.6*28§_6X29& .6X026 (6X266. 6X276) As Siring 
Res PUBIW4 

Private *6X30S&_6X3l56_eX2856.6X295l.ei2006 (8X2656. 6X2756) As 6X2356 
Ren PUB5C4 

Private aRLJW306_6X28e_W29e_STS.TR.VISITIOS.FLG As Integer 
Ren PUB5Y4 

Privale CTRL.ttM30e_«28§.§*29e_STS_TRANSITI0N„FLG_P As Integer 
Ren PUB5B4 

Private CTRLJ6X30MX28e_eX29e.STS_TRANSmON_aGJ>P As Integer 
Ren PUB6F4 

Private CTRLJ 6X306.6X3 16.6X286.6X298.6X026 JOTJ'AL ! D.FLG 16X260. 6X276) As Bool ean 
Ren ^DEFEND 
Rem PUB4B4 

Private m3GOe.ex310e_6X2806_6X290MX2Q08 (6X206. 6X276) As Siring 
Ren PUB4N3 

Private » 3.6X3) 6.8X286.6X298.6X026 16X266. 6X276) As Integer 
Ren PIB4N2 

' Pr 1 va le V2.&X3 1 6.6X286.6X298.6X026 (6X266. 6X276) As Siring 
Ren SDEFPRY 
Ren PRV2T4 

Private VeX306_6X316.6X28e_eX296_6X026_wk (8X266. 6X276) As String 
Ren PRV7R4 

Private CTRLJ6X306_6X296.1NG.FLG As Boolean 
Ren ♦PUBKU 

Private CNSJi0T.KUH.St ring As Siring 

Private CNS_N0TJU!HJnteger As Integer 

Private CNS.N0T_Kl!H_BooleaD As Boolean 

Private CNSJ10T.Klia.Lon8 As Long 

Private CNS.NOT.KUILS ingle As Single 

Private CRSJWTJvUHJouble As Double 

Private CNSJIOTJCUlLVarlanl As Variant 

Private CNS.NOT_KUH_Currency As Currency 

Private CNS_NOT_KUH_Byte As Byte 

Private CNSJiOTJUflJale As Date 

Private Gyou as Integer 

Private Retu as Integer 

Private Uli.Cnt as Integer 

Private Soto.Cnl as Integer 

Private Uli.Hax as Integer 

Private SotoJIax as Integer 
Ren JPRV2B4 
6X1726 
Ren XPRV2E4 
Ren SPRV4U4 
6X1826 
Rem SPRV4E4 
Ren 8DEFEND 

Public Sub MainO 

Ren 3VECREP Private Sub L4.6X3 16.6X286.6X296.6X026.8X0760 
Gyou = Q 
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ttU-S'** h)VO>® : 1 0 5-2 

Retu = 0 
Ren PBVLG 

u %%m < mss then 

Rcd PRVLG 

Dlljbx = 6X2G6 

Res PSVLG 

Solojdax «= «276 

End If 
Rem PRVLG 

I f M346 > 63356 then 
Rem PRVLG 

UiJIax = ©X276 

Ren PRVLG 

SoloJIax = 6X268 
End If 
II LCnt = 0 
Snlo_Cnl = 0 
Do Vi n t i I Soto.Cnl « Sotojlax + I 
DllJCol ■ 0 
Rem PRVLG 

If 6X346 < §S35G then 
Gyoo - CMJbI 
Relu c 5oto_Cnt 
End If 
Reus PRVLG 

If 6X348 > 6X356 I hen 
thou a Solo_Cnl 
Relu « UlLCnt 
End If 

Do Until CllJBnt ■ Utljiax 4 I 
B03L1: 
Rem PRVLG 

If m306_6X3l6._6X286._eX29<L6X02&{Gyou.Relu) = CNS_NOT_KUlLSt ring And _ 
Ren PRVLG 

*3Jtt316_6X286_eX29e_§X028(Gyou.Reiu> =6X076 Then 
GoTo B0X_2 
End tf 

GoTo B0X_E 

BOX J: 
Rem PUB IN 

If f&X305«_6X3l5e_6X285e_eX295e_§X200«(Gyou.Retu) « CSS_N0TJvirB.6X235§ Then Go To Box_3 
Rem PRVLG 

»m 

Rem PRVLG 

VM309.«316_§J(28e_eX296_W502©_wk((h'OU. RetU) » ' V 
B0X_3: 
Rem PRVLG 

I ( *6X306_«X3 1 6_eX28e_6X296_6X026_wk (Gyon. Retu) O CKS J10T JU1L3 trine Then 

GoTo B0X_4 
End If 

GoTo B0X_5 

B0X.4: 
Rem PRVLG 
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ttfJ-'fc'O h)l<D^. : 10 5-3 

*t?S3UM*31G\_ej.2&&_«29&_6Xl)2e (Gyou. Relu) = B6*30MX3l6_6X28e_eX290X026jck{Gyou, Rplu) 
Rpm PRVLG 

16X3006..6X3 IBS JX2SOMX29Q6_6%20ae (Gvou, ReluJ * »«306.6S53 lM*286_6*298_tt02& tGynu. Rp lu) 
Ren PRVLG 

CTRL.»M30e - i%28CJX29^STS.TRAN.SlT10N_FLG = CTRLJ6* 306,6*2 8&_«29ILSTSjrRANS I TtON.FLC f 1 
GoTo BQX.E 

B0X.5: 
Rpq PRVLG 

1 f CTRLJ^30&_«M86_6«96_STS_TRANS1T I 0N_FLG_P 
= CTRL3§X30&_M2HOX290_STS_TRANSIT10N_FLG_PP Then 
GoTo BOXJ 

End ir 

GoTo B0X.7 

BOXJ: 
Rptn PRVLC 

CTRL_tt«30M« I 6_ex28e_6X298_6X02& JOTJ'ALJ D.FLG IGyou, Rp lu) = Trup 
GoTo BOX J. 

B0X.7: 
Rpm PRVLG 

CTRL_«0MO§_e«9§_lNG_FLG = Trup GoTo B0X.E 
BOX J: 

UlLCnl = Uti.Cnt + 1 

Rpm PRVLG 

I r nm < §X35§ thpn 

Gyou = OlLCnl 
Rpiu = Soio.Cnl 
End If 

Rpm PRVLG 

ir Q%'s>w > ma% thpo 

Gyou ■ Soto.Cnt 
Relu = UlLCnl 
End IT 

Loop 

Soio.Cnl - Soio_Cnt + 1 
Rpm PRVLG 

if 6S348 < 8*356 I hen 
Gyou = UlLCnl 
Rplu b Soto_Cn1 
End If 
Rpm PRVLG 

]f 6%34§ > 6X356 I hen 
Gyou ■ Soto_Cnl 
Rpiu = UlLCnl 
End If 
Loop 
Gyou » 0 
Rplu ■ 0 
UlLCat = 0 
Soto.Cnt ■ 0 
UUJIax = 0 
SoloJIax * 0 
End Sub 
Rpq h* PRCEND 
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ttfii-iki? h)lO>m : 106-1 

Option Explicit 
Rem JftEFPUB 
Ben PUB4N4 

Private ffGX306_M3le..&*28&..eX29e_§X02§_SuD As String 
Sec FCBIN4 

Private H0X305SJX31S&JtX285«_6X295e 6X2000 As 0X2356 
Ren PUBSC4 

Private CTRLJK30O_OX28O_6X298_STS»TRANSrT10N^LG As Integer 
Ken PUB5Y4 

Private CTRL_«&X30&_e«86_§X29^STS^TR.\NSITIONJ : LruP As integer 
Ren PUB5B4 

Private CTRL_m3(ie„6X28e^§X29e_STS_TRANSlTiON FLGJ? As integer 
Ren PUB6F4 

Private nRl s .*«30M*3l^«28e_OX29MX020J)OT_VAL]lLFLG As Boolean 
Ren 9 DEFEND 
Ren PUB4B4 

' Private *§X3Q08JX3l08..©X280&Jft290§_§X200g As String 
Ren PUB4N3 

Private «3_OX316JX280_OX29§_«026 As Integer 
Ren PUB4N2 

' Private 82.8X3 l§_8X288_«X29l_6X02e As String 
Ren IDEFPRV 
Ren PRV2T4 

P r i vat e V0X30OX3 J #_6X2 8©_6X2 9&_6X026_wV. As Siring 
Ren PRV7R4 

Private CTRLJOT30O_M296JNG__FlG As Boolean 
Ren tPUBKC 

Private WSJiOT_KUH_String As String 

Private CSS JtOTJvUHJn lege r As Integer 

Private CSS JH>T_KUR.Boo lean As Boolean 

Private CSSJJOT_KUHJ.ong As Lang 

Private CKS_KOTJOIH_S ingle As Single 

Private CKSJiOTJvUH_Donble As Double 

Private CfiSJIOTJvUILVa riant As Variant 

Private OiSJiOTJOIILCurrency As Currency 

Private CNSJOTJiUILByte As Byte 

Private CNSJOTjailLDale As Dale 
Ren JPRV2W 
6X1726 
Ren XPRV2E4 
Ren JPRV4R4 
0X18ZO 
Ren SPRV4E4 
Ren 3DEFENB 

Public Sub UainO 

Ren JYECREP Private Sub L4_©X318_8X280_§X290_§X028 0 
BOX.l: 
Ren PRYIG 

If W§X30e.6X3l8.«28O_«X29MXO2&_Sun = CNSJiOTJOHLString .And _ 
Ren PR\1G 

«3_9X318_§X28§_§X29M*028 * 0X07& Then 
CoTo B0JL2 
End If 



ffifiE# 2004-30991 95 



#® 2003-331373 



^-v! 288/ 



[@3 0 2] 

tf$&~±'<i7 hJKDM : 10 6-2 

K/aii/i£&m/mm&/!ttftiik<DL a (gg#*£ 1160-2) 

G0T0 B0X_E ' 

BOX J: 
Rem PUB IN 

If V6X305OX3 15OX285OX295OX2008 = CNS_NOTJKUH_§H5235« Then Go To Box 3 
Rem PRVLG 

6X176 
Rem PRVLG 

W§SS30OX31OX28OX29OX02Ok = ' 1" 
BOX J: 

Rem PRVLG 

If ff8X30OX31OX28OX29OX02Ok O CNS JfOTJCCJLS t ring Then 

GoTo B03L4 
End If 

GoTo B0X_5 

B0X_4: ' 
Rem PRVLG 

MX30O%31OX28OX29OX02«_Sum = W8X30OX31O»28OX29OX02®_wk 
Rem PRVLG 

W2_GX3 lOX28O3529O%02@ = W@X30OX31OX28OX29OX02Ok 
Rem PRVLG 

CTRLJ@X30OX28OX29§^STS^TRANSITI0N_FLG = CTRL_W§X3 0OX28OX29® STS TRANS IT I ON JLG + 1 
GoTo BOX_E 

BOX J: 
Rem PRVLG 

] f CTRL_3@K30OX28OX29@_STS _TRANS1TI0N_FLG_P 

= CTRLjm30OX28OX29§_STS.TRANSITl0NJLG_PP Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

B0X_6: 
Rem PRVLG 

CTRL3@X30OX31OX28OX29OX02O0T_VALlD_FLG = True 
GoTo BOX_E 

B0X_7: 
Rem PRVLG 

CTRL_W@X30OX29@JNG_FLG = True 
GoTo BOXJE 

BOXJE: 
End Sub 

Rem *** PRCEND 
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ttfc*-£^* hno® : 10 7-1 

K/m fl/figypg ^gwr l 4 (g^are lno-p 

Option Explicit *" " ~ " 

Ren JfiEFPUB 
Ren PB4N4 

Prlvalc ««30MS3IM«8M«9OX026_Siim As String 
Reo PUB1N4 

Privalc f@X305M*3J5&J»X285MX295OX2006 As 612358 
Reo PHB5C4 

Private CTRLJ«30&_6X28M*23e_STS^TRANS[TI0N_FlG As Meger 
Rem PUB5Y4 

Private CTRLJW30d^§«86_e%29e.STS^TRANSIT10N_FLG_P As Integer 
Ren PUB5B4 

Private CTRLJ6W0M«86_6J;298_STS.TRAXS]T10N_FLtLPP As Integer 
Rem PUB6F4 

Private CTRL J«308_«3 1 MX28©JJX29§_6X02tU<0T..VAL [ r»_FLG As Boo lean 
Rem SDEPEKD 
Ren PLB4B4 

' Private *§X3Q0MX310&_§X280«_§X29OMX20Q8 As Siring 
Rco Pli]HN3 

Private «3_M3l§_§X28e_§S2 90X026 As Integer 
Ren PUB4N2 

' Private W2_flX31§_6X28OX29MX028 As String 
Ren SDEFPRV 
Reo PRY2T4 

Private m308_8X31MX286JfX29e_eX02e_wk As String 
Rem PRV7R4 

Private Cmjto30OX29&JNG_FLG As Boolean 
Ren tPUBKU 

Private CNSJfOTJMLString As String 

Private CNSJfOTjaJILlnleger As Integer 

Private CNS_NOT_KlfflLBoolean As Boolean 

Private CNS_XOT_Kl)H_Long As Long 

Private CNSJIOTJCUILS ingle As Single 

Private CNSJJOTJvUHJtouble As Double 

Private CNS_NOTj;i ! ILYa riant As Variant 

Private CNS_NOT_KTH_Currency As Currency 

Private CNSJ*OT_KUH_Byte As Byte 

Private CNSJJOTJvL'lLDate As Dale 
Rem JPRY2M 
ex 172ft 
Rem SPRV2E4 
Rem SPRY4M 
9X1826 
Rco JPRV4E4 
Reo SDEFEND 

Public Sob UainO 

Ren *YECREP Private Sub L4_§X3lMX28MX29OX026 6*0760 
BOX J: 
Reo PRY1C 

IT »6X306_6X3l&_6X28e_ex29e_ex026_Sum = CNSJMTJOJlLString And 
Rem PR\1G 

»3JIX3ie_§X28MX29MX02« = 6X076 Then 
GoTo B0X_2 
End If 
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GoTo B0X_E 

B0X_2 : 
Rem PUB IN 

If W6*305O*3I5O£285@_@r295O*200@ = CNS_N0T_Kl!H_@% 235© Then Go To Box _3 
Rem PRYLG 

W76 

Rem PRVLG 

BOXJ: 
Rem PRVLG 

Jf W@%30O*31O*28O*29O*02@jvk O CNS_NOT_Kl'H_Slring Then 

GoTo B0X_4 
End If 

GoTo B0X_5 

B0X_4 : 
Rem PRVLG 

W^0O*31O*28O*29O*02G_.Sum = W@X30O*31O*28O*29O*02@_wk 
Rem PRVLG 

W2_6*31O*28OX29OS02@ = m30O*31MS28@^29OS02G_wk 
Rem PRVLG 

CTRL„W30O^28O^29@_STS_TRANSITI0N_FLG = CTRLjm30OX28O%29@_STS_TRANSITI0N_FLG + 1 
GoTo B0X_E 

B0X_5: 
Rem PRVLG 

If CTRLjm30®^28@^29@_STS_TRANSITION_FLGJ 
= CTRL3'^30M*28O*29§_STS_TRANSIT]0NJLG_PP Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

BOXji: 
Rem PRVLG 

CTRLJ^30O^31O^28^29O*02@_N0T_VALID_FLG = True 
GoTo B0X_E 

B0X_7 : 
Rem PRVLG 

CTRLJT@U0O*29®JNG_FLG = True 
GoTo B0X_E 

B0X_E: 
End Sub 

Rem *** PRCEND 
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ft»-±^? hlUnm : 10 8-1 
Option Explicit 

Rro jdefpcb 

Rod PUB4N4 

Private WX30M*3ie_eX28M«98^02©_SUD {6X266. As SI ring 

Rro PUBIS4 

Private »§M05e.6«i58 - «2856_W293§ - (i«O06 16X2659. W275I) As 6X2356 
Rem PUB5C4 

Private CTRLJ6X306_ex288Ji29&_STSjrRANSmON_FLG As Iateger 
Ren PUBSY4 

Private CTRLJ§«D&_M2Ke_«296_STS_TRANSlTION^FLCJ» As Integer 
Rem PUB5B I 

Private CTRLjexS06^«28§_«29g„STS_TRANS!T10NJ r LGJ»P As Integer 
Rem PUB6F4 

Private CTRL_««30M%31§_W28e_«29§_e*02§Ji0T_VALID„FLGt§X26fe 8X2761 As Boolean 
Rem SDEFEND 
Ren PUB4B4 

' Private ft 6X3000*3 1 0&_feX280B_§%2 906_M2006 (6X266. 3X276) As S t ring 
Rem PUB4N3 

Private B3JX3]e_6X2K8_eX23&..6X02e (8X266. 6X276) As Integer 
Rem PUB4S2 

' P r 1 va t e M_GX3 1 6_6t 286.6X298_ex02& (8X266. 8X276) As Siring 
Rem JDEFPRY 
Rem PRV2T4 

Pr i vat e B6X308.6X3 1 6„6X28e_6X296_eX026_wk (6X266. 6X276) As S I r 1 ng 
Rem PRV7R4 

Private CTRL_m306_eX296_lNGJ : LG \s Boolean 
Rem 4PUDKU 

Private CNSJJOTJvUJLStrlnfi As String 
Private CNSJlOTJUULlnteger As Integer 
Private CNSJIOTJOJlLBooiean As Boolean 
Private CSS.NQTJCUTLLong As Long 
Private CNS_N0T_KU1LS ingle As Single 
Private CNS.NOTJUIOouble As Double 
Private CSSJMTJOJBLVa riant As Variant 
Private CNS_NOTJvUHj:urrencv As Currency 
Private CNSJJOT_KUH_Byte As Byte 
Private CNS_KOT_KUH_Date As Date 
Private Gyou as integer 
Private Retu as Integer 
Private UlLCnt as Integer 
Private Soto_Cnl as Integer 
Private CUJlax as Integer 
Private SoloJJax as Integer 
Rem IPRV284 
8X1726 
Rem IPRV2E4 
Rem $PRV4V4 
6X1828 
Rem IPRV4E4 
Rem 3DEFEND 
Public Sub UatnO 

Rem *YECREP Private Sub L4_eX3l6_6X286_6X296_eXU28 0 

Cyou = 0 
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Wtt- fe'** h JKO© : 10 8-2 

K.'ffift -Eg^^0g./lft^m<OL 4 (ffgljftgn 18 0-2) 

Relu = 0 
Ren PRVLG 

U 61346 < 6X356 I hen 
Rem P8VLG 

FUJlax = 6X266 

Ren PRVLG 

SoloJIax * 6*276 

End H 
Ren PRVLG 

If 65>31« > 6X356 I hen 
Rem PRVLG 

I'UJIax = 6X276 

Rem PRVLG 

SoloJIax • 6X266 
End U 
LtljCnl * 0 
Solo_Cnt = 0 
Do Colt I SoloJInt ■ SoloJIax + 1 

nijCBt ■ o 

Ren PRVLG 

If 6X346 < 8X356 Iben 
Gyon = L'lLCol 
Rem ■ Solo.Cnt 
End If 
Rem PRVLG 

U 6X346 > 6X356 ihen 
Gyou s Soto_Cni 
Relu « UUJCnl 
End (f 

Do Until LULCnl «= Ulijlax + 1 

H0JL1: 
Rem PRVLG 

II m36e_6X316_eX28§_eX298_eXQ2e_SunlGyoaRetu) = CNSJIOTJOIILSt rins And _ 
Rem PRVLG 

H3_6X3ie_6X28e_6XZ9e_eX026 (Gyou. Relu) = 6X076 Then 
| GoTo B0JL2 

End If 

GoTo BOX_E 

B0X.2: 
Rem PUB IN 

II ¥6X3058 JX3l56_6X2856_e*295e_eX20Q6<Gyoo, Relu) « CNSJJOT_K0rUX2356 Then Go To Box_3 
Ren PRVLG 

6X176 
Rera PRVLG 

y6X306JX3l6_6X286_6X296_6X026_wk (Gyou. Relu) = *|" 

BOO: 
Rem PRVLG 

I f 96X306_6X3 l6_6X286_6X296J«02e_wk IGyou. Re t u) O CNS_NOT_KUH_S 1 ring Then 

GoTo B0X.4 
End If 
- GoTo BffiLfi 

B0X_4: 
Rem PRVLG 
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hiVOm : 10 8-3 

K8X306L.W3 1 &_9X286JX29&_9XG2«_Suin (Gyou. Re I u) = IM30ft M »3 1^.6«28&_«296_»0'».rk tCyou. Ret u) 
Rem PRVLG 

«2_6X3 ]^«28fl„e»29P_»026 tGyoa Re lu) = *t*30<L«3 l&_9X28§_6X29M*02e_wfc IGyuu. Re I ul 
Rem PRVLG 

CTRL_««306_§X28y_»2a&_STS_TRANSlT10N_FLG * CmjeX30e_§*28MX299_STS_TR^S1TIQN_FLC * I 
GoTo BOXJE 

Rea PRVLG 

I f CTRL^e\306^«28MX298_STS_TRANSITJON_FLG_P 
■ CTRL_fttt306_6W8§_W29^STS_TRASSmON_FLG_PP Then 

GoTo BOXJ 
End If 

GoTo BOXJ 

BO2L0: 
Ren PRMG 

Cm3«X30M5t310«8MW96_6X0200U , ALin_FLG(Gvou,Retu) = True 
GoTo BOX J 

BOO: 
Ren PRVLG 

CTR1JS9X30§..9X299_INGJ : LG » True GoTo B0X_E 
B0X.E: 

UtLCnl * lU.Cnt ♦ I 

Ren PRVLG 

If K34B < 9X359 then 

Gvod - UtLCnt 

Relu » Soto_Cnl 
End If 

Rem PRVLG 

If 9X349 > 6X359 then 
' Gyoo - Sotoj:nl 

Retu = UtLCnl 
End If 

Loop 

Solo.Cnt « SoIo.Cnl * I 
Ren PRVLG 

If 9X3-19 < 9X3 B9 then 
Gyoo = l"H_Cnl 
Rein a SotoJInl 
End If 
Ren PRVLG 

If 9X346 > 9X359 (hen 
Gyou " Soto_Cnt 
Retu - CtlJCnt 
End If 
Loop 
Gyou b o 
Retu = 0 
CIIJCdI ■ o 
Sotojnt « 0 
UiJIax = 0 
SotoJIax * 0 
End Sub 

Rem *** PRCEND _____ 
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Ksm*i, ffljp»]fix • jS{gfr/tefligcpL4 (gg^i i9o-u 

Option Explicit 
Ren 3DEFPLB 
Ren PUB4N4 

P r i va te » §\308_6*3 1 6.8X2 86 _&X29&JrtQ26_Suoi (8X268. 6X276) As Si r I ng 
Ren PU8IM 

Private «6X3056_8X3 1 53J*X285e_eX2956Jrt200& (6X2656. 6X2756) As 6X2356 
Rest PUR5C4 

Private CTRLJfel30&_6X286JX296_STC_TMNSITION_FLG As Integer 
Ren PirBnY4 

Private CTRL_»W306_«28§_es296_STS - TRANSITIOH_FLG_P As Integer 
Rem PUB5B4 

Private CTRLJ&t3C^«!28e - «;29MTS_TRANSITI0NJ f LC_PP As Integer 
Res P0BGF4 

Private CTRL _1M30§_«X3 1 B_eX286_6X298_8X02O0T_VAL I D_FLG (6X266. 6*276) As Boo I ean 
Rem HCFESB 
Ren PUWB4 

' Private m300MX3J0§_«X2806_6X290&_6X2O08(ex2u&. 6X276) As String 
Rod PV-B4N3 

Private ? 3_e« l6_6X288_eX298_6X026 (6X266. 6X276) As I n t ege r 
Reo Pl'B4N2 

' Private «Z_8X316_OX286_6X29ejJX02e {6X266. 6X276) As String 

Private Gyou as Integer 

Private Retu as Integer 

Private IHLCnl as Integer 

Private Soto_Cnt as Integer 

Private I'tljlax as Integer 

Private SotoJJax as Integer 
Ren SDEFPRV 
Ren PRV2T4 

Private «6X308_6X3 16_6X28MX296_6X026_wk 16X266. 6X276) As String 
Rem PRV7R4 

Private CTRL J 6X306_§X2 96JWLFLG As Boolean 
Ren <PURKII 

Private CNSJfOTJU.'lLSlring As String 

Private CNSJJOTja.TUnteger As Integer 

Private CNS^OTJCUOoolean As Boolean 

Private CNSJIOTJUJHJ.cng As Long 

Private CNSJIOTJvUILS ingle As Single 

Private CNSJiOTJCUOouble As Double 

Private CNSJJOTjMLVa riant As Variant 

Private CNS_NOT_KUH_Cnrrency As Corrency 

Private CNS_NOTJNB_BYtt As Byte 

Private CNS.NOT JilMLDa 1 e As Dale 
Rem SPR¥2«4 
6X1726 
Rem IPRV2E4 
Res *PRV4«4 
6X1826 
Ren IPRV4E4 
Ren SDEFEND 

Public Sub Main 0 

Ren «VECREP Private Sub L4,8X3l8^6X286.6X296_eX026_6X0780 
Gyou » 0 
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h)l<D$l : 10 9-2 

k m-h • mm ^ot smw-mv l 4 (g fls?^ i a 9 0 - 2 > 

Relu « 0 
Ren PRVLG 

IT < 6X356 then 

Ren PRVLG 

I'UJiax ■ 6X266 

Ren PRVLG 

Solojlai * 6X276 

End Jf 
Ren PRVLG 

Jf 6X346 > 6X3S6 then 
Rcd PRVLG 

Ulijlax = 6X276 

Rem PRVLG 

SoioJIax = 8X266 
End ir 
UlLCnl = 0 
Soto.Cnl = 0 
Do Unll) Soto.Col = Sotojlax t t 
UlLCnl = 0 
Rem PRVLG 

If 6X346 < 6X356 then 
Gi'ou = Uif.Cnl 
Relu = Sulo.Cnt 
End If 
Reo PRVLG 

If 6X346 > 6X356 I hen 
Gyou « Soto_Cnl 
Relu * UlLCnl 
End If 

Do Colli UlLCnl « I'liJIax * 1 
BOX.!: 
Rem PRVLG 

If «6X306_6X316_6X2K6_6X298_6X026_Sum(Gyou.Rclu) * CNS _NOTJtfJH_S I ring And _ 
Ren PRVLG 

ff3_tt316_eX286_6X296_«X026(Gyott.Retu) - 6X076 Then 
Goto B0X_2 
End If 

Goto B0X_E 

B03L2: 
Reo PTJBIN 

If 86X3056.6X3 1 56_6X2856 JeX2956_6X2Q06 (Gyou. Relu) « CSS.N0T„KUH_6X2356 Then Go To Box_3 
Ren PRVLG 

8X176 
Rem PRVLG 

m306_6X3ie_eX286_eX296_eX026jrk (Gyou. Ret u) «= * P 
BOX J: 
Reo PRVLG 

If WX308_6X3l8_6X286_6X296_6X028_wk(Gyou,Relul O CNSJiOTJOJILSi ring Then 

GaTo B0X.4 
End If 

GoTo B0X__5 

B0X_4: 
Rem PRVLG 
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: 10 9-3 

%§S30O*3 J6J>l28G..&X29MW)2§LSui[! IGyou. Re \ u) - m306_M3 16Jfc28M*29OX02fe_wk (Gyou. Re lu> 
Rem PRVLG 

»2_6« 16_ftX28t_eX'29ft_§i02* (Gyou, Re l u) = flte%30M*3 1 ^X28MX29M*028._wk (Gyou, Re t u) 
Rem PRVLG 

CTRL_»©%3Ba„6X28OV29b.STS„TRANS]TI0N_FLG * CTRLjeU0M*28OX298_STS_TRANSlTI0^FLG < 1 
GoTo B0X_E 

BOXJ: 
Ren PRVLG 

I f CT8L_«l%30O*28OX29^STSJRANSlT10NJFLG_P 
= CTRL_»e%30§_«28MX29^STS_TRANSITION^FLG_PP Then 
GoTo BOXJ 
! End If 

GoTo B0X.7 

B0X_6: 
Ren PRVLG 

CTRL_ffSX30MX31^«28M«9§_W026_.\OT_VALin_FiG (Gyou. Re I u) - T rue 
GoTo B0X_E 

BQX.7: 
Rem PRVLG 

CTRL_»6X30§_e*298^IN , G_FLG = True GoTo BOX.E 
B0X.E: 

UlLCnl * indent * I 

Reo PRVLG 

U <JS»346 < 6X356 then 

Gyou = UlLCnl 

Reta = SoloJInt 
End If 

Ren PRVLG 

H 61346 > 0X35© then 

Gyou = Soto_Cnl 

Relu * UtLCnl 
End If 

Loop 

Soto_Cnl - Solo_Cnl t 1 
Rem PRVLG 

U 6X346 < 6X356 then 
Gyou « UU_Cnl 
Relu = Soto.Cnt 
End IT 
Rem PRVLG 

If 6X346 > 6X35© then 
Gyou = Solo_Cnl 
Retu - UU„Cnt 
End If 
Loop 
Gyou * 0 
Relu * 0 
UlLCnl = 0 
Sotojtol ■ 0 
UtL«ax = 0 
Solojlax - 0 
End Sub 

Rem M* PRCEND 
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Option Explicit 
Ren JBEFPUB 
Ren PW4N4 

Privale m308_8%3 1 8.8X2 R8.W2 98.8X028 As Siring 
Rod PUBIN4 

Privale ««305e_8X3l5&_6X2856_ex29a8_6X20Q8 As 612356 
Rem PUB5C4 

Private cm_ftfiX308_8X288_6l29&_STS.TRANSIT]ONJ : LG As in leper 
Rem PUB5Y4 

Private CTRlJ*6X30e_€%286_6X29&.STS_TRANSmON.FLG_P As Integer 
Ren Pl«B5B4 

Private CTRL.m30«.«2S&_«29S_STS.TRANSITlONJ?LG^PP As Integer 
Rem PUBGF4 

Private CTRLJW308„«3I^W28e„W296„M02M0T^VALlDJ ? LG As Boolean 
Rem 3 DEFEND 
Rem PIB4B4 

Private « 8X3006.8X3 106.8X2808_8X2308_6X2006 As Siring 
Ren PUB4K3 

Privale 1 3.8X3 1 8.8X2 88_6X296„&X02S As laleger 
Ren PUB4S2 

' Privale » 2.8X3 18.8X286.8X298.8X026 As String 
Rem 3DEFPRV 
Rem PRY2T4 

Pr i va te « 8X308.8X3 1 6.eX288_8X298_6X02e_vk As St r i ag 
Rem PRV7R4 

Privale CTRL_16X30e_8X29BJNG_FlG As Boolean 
Rem *PUBKt) 

Privale CNS_NOTJil'H_Slring As String 

Private CNSJ*OT_KURJnteger As laleger 

Privale CNS_NOT_Kl!H_Boolean As Boolean 

Private CNS_NOTjttUJ.ong As Long 

Private CNSJIOT.KUJU ingle As Single 

Private CNS.NOTJMLDouble As Double 

Private CNSJtoTJvl^Va riant As Variant 

Private CNSJJOTJiUlLCurrency As Currency 

Private CNSJluTJtUlLByle As Byte 

Private CNSJIGT.KUH.Dale As Bate 
Ren SPRY2V4 
8X1728 
Rem SPRV2E4 
Rem SPRV4I4 
8X1828 
Ren SPRV4E4 
Rem 3DEFEND 

Public Sub UainO 

Rem «VECREP Privale Sub U_eX31t_8X288_8X29eja026 0 
BOXJ: 
Rem PRVLG 

If H6X308_6X3 1 8.8X2 88.8X2 98.8X028 = CNS.NOT.KUiLSlring And _ 
Reo PRVLG 

M.8X3 18.6X288.8X298.8X028 « 8X078 Then 
GoTo B0X.2 
End If 
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b)V<OM : 110-2 

M/Mti/wtwm/t&mm/mftt&toi- 4 1200-2) 

I G0T0I0O ~~ 

B03L2: 
Rem PUB IN 

If ^305M*3I5M*285O*295O*200& = CNS_NOTJOJO%235G Then Go To Box_3 
Rem PRVLG 

®%m 

Rem PRVLG 

W§X30©.W31i_§%28i.§M9MX02§ - wk = ' i' 
B0X_3: 
Rem PRVLG 

If W§X3O«_«S531«_«X286.«X29#_eSU02«_wk O CNS_NOT_KUH^Slring Then 

GoTo BOXJ 
End If 

G0T0 BOXJ 

B0X_4: 
Rem PRVLG 

WfiX308_§X31M*28§J»29OX028 = W30O*31M*28®Jft29O*02Ok 
Rem PRVLG 

CTRLffW30MX28MX29i.STSJRANSITION_FLG = CTRLJ«X30«JX28§_§SS29«_STS.TRANSITIOSJ ? LG + 1 
GoTo BOO 

B0X_5 : 
Rem PRVLG 

If CTRL„W6X30^28MX29§„STS_TRANS1TIOS_FLGJ 
= CTW,jeX30ej«28«_«l529tSTSJRANSITIOSJ ? LGJ , P Then 

GoTo B0X_6 
End If 

GoTo B0XJ7 

B0X_6 : 
Rem PRVLG 

CTRLJ*^30O«31@.6%28OSI529@_^02@_S0TJ r ALID_FLG = True 
GoTo BOLE 

B0X_7: 
Rem PRVLG 

CTRLJ'@%30O^29@„ING_FLG = True 
GoTo BOX J 

BOX J : 
End Sub 

Rem *** PRCENB 
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Option Explicit 
Rem sBEFPUB 
Ren PUB4N4 

Private *6X3Q6_6X3 16JJX28«_6X291L&X02& As SI ri or 
Ren PITIIN4 

Private m3056_6X3l56_.M2856JlX295e..&X200& As 6X2350 
Ren Pl'B5C4 

Private CTRLjeX30M«R8_©X29G.STS_TRANSJT!0OLG As Integer 
Res PUB5Y4 

Private CTRLjeMO^§5528B_§*29§.STS_TRAKSlTION_FLG„P As Integer 
Ren PUB5B4 

Privaie C7RLJ&*30^6X28&.«29G_STS_TRANSmON_FL(i_PP As Integer 
Rem PUB6F4 

Privaie aRU'WSOe.WSiMSiZgMXZS^OZft.NOT^VALlD^FLG As. Boolean 
Ren SHEFENO 
Ren Pl*B4B4 

Private *&X3O0e_8X3!Dd._eX2806._8X290&_6X2()06 As String 
Ren PUB4N3 

Private *3Jrt3l8_6X28&_eX29§_6X026 As Integer 
Ren PUB4N2 

* Private B2_iX316_6X28&_6X29e..6XQ2e As Siring 
Ren 3DEFPRV 
Rem PRV2TJ 

Privaie MX30e_ex3l6_6X288_BX298_exO2e_wk As String 
Reo PRV7R4 

Privaie CTRLJ6X306..6X298JNGJ J LG As Boolean 
Rem *PUBKC 

P r i val e CNSJJOTJOIILSl r Ing As St r i ng 

Private CSSJJOTJrtfKJnieger As Integer 

Privaie CSS_N0Tj:Uli_Bt>o1ean As Boolean 

Private CSS_NOTJUJH_long As Long 

Private CNSJJOTJCUILS ingle As Single 

Private CNSJiOTJCUH.Double As Double 

Private CNS_NOTJUUlVa riant As Variant 

Private CNS_SOTJvUILCurrency As Currency 

Private CNSJJQOUlLByle As Byte 

Private CNS_NOT_KUH_Dale As Dale 
Reo mm* 
8X1726 
Rem SPRV2E4 
Rem SPRV4R4 
8X1826 
Rem JPRV4H4 
Rem 3DEFEND 

Public Sub UalnO 

Rem SVECREP Private Sub U_eX3l6_eX28e_6X29§_eXQ2«_eX076 0 

B0X_1: 
Rem PRY1G 

If reX306_6X3l6_§X28@_6X29MX02§ * CNSJtOTJCUILSl ring And _ 
Rem PRVLG 

«3_eX3l6_§X288.6X298JX026 = 6X076 Then 
GoTo B03L2 
End If 
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ttm~±'<!7 h^Offl : 1 1 1 - 2 

M/ma/BB^j<e/»gg/«»«(0L4 («a*^i 210-2) 

G0T0 BOX J 

BOXJ : 
Rem PUBTN 

If W6X305OX3l5O*285OX295O*20l)& = CNS_S0TJUO*235§ Then Go To Box J 
Rem PRVLG 

Rem PRVLG 

WM0O*31OX28O*29O*02Ok = ' 1" 
B0X_3 : 
Rem PRVLG 

If tteX30O*3lO*28O*29OX02Ok O CNSJOTJUHJlring Then 

GoTo BOXJ 
End If 

GoTo B0X_5 

BOXJ : 
Rem PRVLG 

W8X30O*31O*28O*29OX02« = WIX3QO*31O*28OM9O*02Ok 
Rem PRVLG 

CTRLJ'©X30OX28O*29OTSJRANSlTI0NJLG = CTRLJ@X30OX28O*29OTSJRANSITI0NJLG 4 1 
GoTo BOXJ 

BOXJ : 
Rem PRVLG 

1 1 CTRL J6X30OX28O*29ejTSjrRANSITl0N JLG J 
= CTRLJW30MX28OX296JTSJRANSITI0NJLCJP Then 

GoTo BOXJ 
End If 

GoTo BOXJ 

BOXJ : 
Rem PRVLG 

CTRL JW0OX3 10*280*290X029 _NOT_VALIDJLG = True 
GoTo BOXJ 

BOXJ: 
Rem PRVLG 

CTRLJ6X30OX298JNGJLG = True 
GoTo BOXJ 

BOXJ: 
End Sub 
Rem *** PRCEND 
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h)V<7>M: 112-1 

Option Explicit 
Ren SDEFPUB 
Rem PUB4N4 

Private »M30&_«3IM«B&_^9MX02&(W20§.M27fl) As Siring 
Ren PUB I. M 

Private m305Mttl5OX2856_W2956_M2006l6*2G5fe. 6X2756) As 6X2356 
Ren PUB5C4 

Private CTRL.fl«t308_e*28a^«29OTS_TRAKSlT]0N„FLG As Integer 
Rod PVB5Y4 

Private CTRL_««306_ei28MX296.STS - TRANSiTION_FLfi_P As Integer 
Ken PUB5B4 

Private CTRl^»W3fl6_6«28^«296.STS_TRASSITJ0H.FLG_PP As In lege r 
Rem PUBUF4 

P r i vat e CTRL_?6X308_§X3 ia_6X28e_&X29&_6XQ28 J*OT _VUID_FLG (6X266. 8X276J As Boo I ean 
Rem 3 DEFEND 
Rem PUB4B4 

Private m3Q08_6S31Q6_6X2808_6X290M*2006 (8X266, 6X278) As Siring 
Ren PUB4N3 

Private «3J*3le_«289ja298_es02&(M268. 6X276) As integer 
Rem P0B4N2 

' Private «2JX316_6X286_6X298_eX028 (6X266. 6X276) As String 
Rem fiDEFPRV 
Rem PRV2T4 

Private *6X306_6X31MX28e_8X298_6X026jrk (6X266. 6X276) As Siring 
Rem PRV7R4 

Private CTRLJJex30&_6X296JNG__FLG As Boolean 
Rem ♦PtIBKC 

Private CSS JWLKUlLSl ring As String 

Private CKSJJOTJvUIUnteger As Integer 

Private CNS_NOTJCUH_Boolean As Boolean 

Private CNS_.\OT_KUHJ,ong As Long 

Private CNS_KOT_KUH_S ingle As Single 

Private CNSJOTJO?HJ)ouble As Double 

Private CNSJIOTJvl'lLVa riant As Variant 

Private CNS_NOTJtlTl_Currency As Currency 

Private CNSJIOTJiCOyte As Byte 

Private CNS_NOT_KUHJ)ate As Date 

Private Gyou as Integer 

Private Relu as Integer 

Private L'l i_Cnt as Integer 

Private Soto.Cnt as Integer 

Private lUJIax as Integer 

Private Sotojlax as Integer 
Rem IPRV2T4 
6X1728 
Rem *PRV2E4 
Rem $PRV4«4 
8X1828 
Rem SPRV4E4 
Rem DEFEND 

Public Sub MainO 

Rem iVECREP Private Sub l4_eX3De_6X3l6_§X288_8X296_6X026 I) 
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tA/w-ti/timfi 5tmm/ifinm<r>L n (gig^i 2 2 0-2) 

Gyou =0 ~ 

Rem = 0 

Ren PRVLG 

If 6*346 < 6X356 thrn 
Rpd PRVLG 

UliJIax ■ 6X266 

Ren PRVLG 

SoloJIax - 635276 

End IT 
Rem PRVLG 

IT 6X3J6 > 6X350 then 
Rem PRVLG 

l-lljlax * 6X276 

Ren PRVLG 

SoloJIax « 8X266 
End If 
DlLCni = 0 
Soto_Coi « 0 
Do On III Solo_Cnl - SoloJIax 4 1 
LMl.Cnl = 0 
Ren PRVLG 

Jf 6X349 < 6X3S6 then 
Gyou = I'tLCnt 
RelD « Solo_Cnt 
End If 
Ren PRVLG 

1 f 6X346 > 6X356 then 
Gyou « Solo_Cnt 
Relu » L'li.Cnl 
End If 

Do Unlit UlLCnl = I'tiJIax 4 1 
BOXJ: 
Ren PRVLG 

If *6X306^6X31§_6X286„6X298^eX026lGyou.Retu) » CNS_NOT_KUH_String And _ 
Ren PRVLG 

*3_6X31G_6X28G_6X296_eX02e{Gyou.RetU) » 6X076 Then 
GoTo WXJl 
End if 

GoTo 80X_E 

BOXJ: 
Ren PUB IN 

If «6X3Q5&_eX3I56_6X2856_eX295e_§X2006 (Gyou. Relu) = CNSJt0T_KUH_«2356 Then Co To Box 3 
Ren PRVLG 

6X176 
Ren PRVLG 

»6X306_6X3 1 6_6X28§_6X296_6X026_<rk (Gyou. Re t u) - " I* 
B0X_3: 
Ren PRMG 

I f 16X306.6X3 1 6_eX28e_6X29§_6X026jafc (Gyou. 8e t u) O CNS JJOTJ01H_S trios Then 

GoTo B0X.4 
End If 

GoTo BOXJ 

BOX, 4: 
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tttt-Ss^ h IMD® : 1 1 2 - 3 

M/aa/agflff • ggg igffsaoL 4 (gimq- 1220-21 

RfD PRVLG 

m3Q&_©%3 1 6_6M&6_W29M*02* (Gyou. Re t ul * *6*30§..G*3 1 8.«286.Q129fi.ME026jrk Kiynu. Rr t u) 
Rpq PRVLG 

CTRk.»eX306_eX28e_©»29&_STS„TRANSITIOE*_FLC = aRU.««308_eW8&_«298.STS.TilANSni0N_FLf. 4 I 
GoTo B0X.E 

B0X.5: 
Ren PRVLG 

! f CTRL J«3QM*28&_e*29f»._STS JTRANS I T 1 0N_FLG_P 
1 ° CTRLJ8«308_«28ft_«;29ff_STS.TRANSITJ0N_FLli_PP Then 
GoTo BOO 
End tr 

GoTo B0X.7 

BDX.6: 
Rem PRVLG 

CTRL_ae*30M«l§_W286_«29&_«026_NOT_VALID_FLG (Gyou. Rein) * True 
GoTo B0X_E 

B0X.7: 
Res PRVLG 

CTRLje%306_«296.INGJ ; LG = True 
GoTo B0X_E 

B0X_E: 

UtLCnl « 1'tLCnt 4 | 

Rem PRMG 

I f 6*346 < &%35& then 

Gyou = IMLCdi 

Relu " Solo^Cnl 
End If 

Ren PRVLG 

If <A34d > 6X35& then 
, Gyou ■ Soto_Cot 

ReU » IMl.Cnl 
End IT 

Loop 

Solo_Cnl = Soto^Cnt + 1 
Rem PRVLG 

U 6X34& < 6*356 then 
Gyou = UtLCnl 
Reto « Solo_Cnl 
End If 
Ren PRVLG 

If 6*343 > 6K35U then 
Gyou = Solo_Cnt 
Retu = UU.Cnl 
End If 
Loop 

Gyou ■ 0 
Retu = 0 
IHLCnl « 0 
Soto_Cnt « 0 
L-liJIax = 0 
Sotojtax = 0 
End Sub 

Rem *** PRCEND 
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f<t&-£^* MKBS! : 1 1 3 - 1 

M/a^/E^rr/^gtr/jg^M<QL 4 1230-n 

Option Explicit 
Ren SDEFPUB 
Rem PCB4N4 

Private m30e_eii31^«28§_«29e_M02d(«2Be. 6X276) As Siring 
Ren PWilM 

Private m3056J*315§_eX2856Jrt295M*2008(&X2G5&. 6X2758J As 642358 
Ren PUB5C4 

Private CTRL^8!(30^W28e - §*2y^STS„TRANSlTlONJ : LG As integer 
Rem PHB5Y4 

Private CTKLJ§X3DM«8*_M29§_STS - T8AHSIT10N_FLG - P As Integer 
Ren PUB5B4 

Private aRL_»&M0e_W286_ex29§.STS.TRANSITION_FLG_PP As Integer 
Sen PUB6F4 

P r i va le CTRL_*@%306_§X3 1 &_eX28e_6X29ej*Q26_N0T_VAL 1 ILFLG (6X266. 8X278) As Bool ean 
Ren DEFEND 
Ren PCB4B4 

Private m3006_6X3108_6X2806_6X290&_6X200§ (8X266. 6X276) As String 
Ren PUB4N3 

Private M_6X3 1 8.6X286 J«298_8X02G (8X2G6. 8«78) As Integer 
Ren PUB4N2 

' Private «2.«3 l6_6X288._eX29e_6X02& (6X266. 8X276J As String 
Ren »DEFPRV 
Ren PRV2T4 

Private l6X30e_eX3ie_ex286_6X296_.6X02e..wk (6X286.8X278) As String 
Ren PRV7R4 

Private CTRL_*eX30&_6X296JNG_FLG As Boolean 
Ren *PUBKU 
Private CSS_NOT_KUH_String As String 
Private CNSJTOTJiUHJnteger As Integer 
Private CSS.NOTJOJlLBoolean As Boolean 
Private CNS_SOT._KUH.Long As Long 
Private CKS_NOT_KUILS ingle As Slnsle 
Private CNSJiOT_Kl1L0ouble As Double 
Private CNSJ?OT_KUH_Va riant As Variant 
Private CNSJiOTJCUILCurrencv As Currency 
Private CNSJiOTJMLByle As Byte 
Private CNS_NOTja>HJ)ate As Date 
Private G)ou as Integer 
Private Retn as Integer 
Private UlLCnl as Integer 
Private Soto.Cnl as integer 
Private UUJJax as integer 
Private Sotojlax as Integer 
Ren SPRY2M 
8X1726 
Ren WRV2E4 
Ren $PRV4W4 
8X1826 
Ren JPRY4E4 
Ren 4BEFEKD 
Public Sub MainO 

Ren 4VECREP Private Sub L4.6X3 16_6X288_8X296JrX02e_§X078 0 

Gyou c 0 
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b)l<D$l : 113-2 

M mi] GWin/ntoVirlfl9t.toO)L<\ (ffJg*ft*H 2 3 0-2) 

Relu « 0 
Rem PRVLG 

If H34B < e%356 Ihen 
Ren PRYIG 

H i Jlax * 6X2B6 

Rem PRVLG 

1 Solo Jlax * 6X276 

End IT 
Rem PRYLG 

! If 6X34& > 6X356 then 

Ren PRVLG 

Hi i Jlax = 6X276 

Ren PRVLG 

Solo Jlax ■ 6X266 
End If 
mLCnl = 0 
SotoJInt = 0 
Do Until Solo_Cnt « SoloJIax + 1 
Ull.Cnl * 0 
Rem PRYLG 

If 6X346 < 6X356 Ihen 
Gyou = LM1_Cnl 
Rem * Solo.Cni 
End If 
Rem PRVLG 

If 6X346 > 6X350 Ihen 
Gyou = Solo_Cnt 
Relu = ni_Cnt 
End If 

Po Until UlLCnt = Oil Jlax + I 
B0X_1: 
Rem PRVLG 

If «8X306_&X3I«_§X28e_6X29MX026 (Gyou. Relu) = CNSJfOTJCnLSI ring tod _ 
Rem PRVLG 

M_§X31M*28MX298_§XQ26lGyou.Retu> = 6X076 Then 
GoTo B0X.2 
End If 
j GoTo BOXJ 

B0X.2: 
Rem PUBIN 

If B6X3058_6X3J56_eX285e_eX295MX2008{Gjou.Relu) «= CNS_NOTJvVH_eX235& Then Go To Box_3 
Ren PRYLG 

6X176 
Rem PRVLG 

16X306^6X3 ie_eX286_eX296„_6X026js)£(Gyoo. Relu) = ' V 
Ren PRYLG 

] f »eX30<L6X3 1 §_8X286LeX29e_8X026j& (Gyou, Re lu) O CSS JIOTJOHLS tring Then 

GoTo B0X_4 
End If 

GoTo B0X_5 

B0X_4: 
Ren PRVLG 
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\\/\&n/mms ^fi5fi-/my^s<QL a (gJi^ 1230-3) 

»6X30ej«3 19J*28MX29OX026 (Gyou. Re Id) = «6X306_tt3 I&_G528M«9MXQ'26-.rt IHyou. RelU> 
Ren PRVLG 

CTRLJW30b - «28&.«29e_STS - TRANS!TI0N^aG « CTRL_»fi«3UMV28MV296.STS.TR.ANSIT]0N_FLC + 1 
Goto BOO 

B0X.5: 
Ren PRVLG 

I r CTRL.m30M«86_«23^_STS_TRASS!T10N_FLG_P 
= CTRLJ6X30&.M28Q_6%29&_STS^TRAKSITlON_FLG.PP Then 

GoTo BOXJi 
End IT 
; GoTo B0X.7 

BOXJ: 
Ren PR\1G 

CTRlJ6X30§_«3U_«28Mi296^02M0T_VALin_FLG(Gyou.Rp!o) « True 
GoTo B0X_E 

BOXJ: 
Ren PRVLG 

CTRL.«§*30MX29§_ING_FLG » True 
GoTo B0X_E 

B0X_E: 

UlLCnl = UiLCnl \ I 

Reo PRVLG 

If 6X346 < 6X356 Iben 

Gyou * CtLCol 

Rettt s Soto.Cnt 
End II 

Ren PRVLG 

I f 6X346 > 6X350 then 

Gyou = Soio^Cnt 

Retu c l"U_Cnt 
End If 

Loop 

Soto_Cni - SotoJ!ni t 1 
Ren PRVLG 

If 6X346 < 6X356 l hen 
Gyou » rii.Cnl 
Retu - Su »o__Cnt 
End If 
Ren PRVLG 

If 6X346 > 6X356 Iben 
Gyou = Soto_Cni 
Retu * lli.Cnt 
End If 
Loop 

Gyoo = 0 
Rem c 0 
DHJCdI ° 0 
Solo.Cnt * 0 
UtiJIax « 0 
Sotojlax * 0 
End Sub 

Ren m PRCEND 
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tta-&^5> : 114—1 

JEW (K<Piffi*fe7C) /itift - a£^^'?@«/<gffMg)L 4 (jgJfgffiQl 2 8 0- 1 1 
Opt Job Explicit 
Rco SPEFPUB 
Ren PIMM 

Private «&XSO§_«3I^286_W236^W02§ As String 
*en PUBIN4 

Private lfri305d_§\3 1 56_e%285&_«295S..tt200& As 
Ren PUB5C4 

Private a8LJ«30OX28O«9&JTS_TRAHSlT10H„FU; As Integer 
Ren PUB5Y4 

Private CTRLa«306_«28O«£*_STS_lRAKS!TlQNJl(;_P As lolcger 
Ren PCB5B4 

Private CTRU_«eX308_§S28e_M29MTS_TRANSiTI0NJlG^PP As Integer 
Rem PUB6F4 

Private CTRL J8X30s_§*3 1 § JX28O*293J*02S JWJrAU D JLG As Boo I ean 
Ren JDEFEND 
Ren PUB4B4 

' Private fiX30TO„»3J0* - «X2ROi_«t290ftjWZO08 As String 
Ren PUB4K3 

Private B3_§X3ie_§3;28M*23{Le*02& As Integer 
Ren PB4N2 

* Private «2^«31M«8§_«29M*02e As Siring 
Ren sDEFPRV 
Ren P8V2T4 

Private m30M*3lM*288_e*29&_«02&jrk As Siring 
Ren PRV7R4 

Private CTRL_W«»309_«29#.1NCJ ? LG As Boolean 
Ren *PtlBKt) 

Private CNS_SOT_KUH_Slring As Siring 

Private CNS_NOT_Kl)H_lnteger As Integer 

Private CNSJiOTJKUOooleaa As Boolean 

Private CNS_NOT_KUIUong As Long 

Private CNS_NOT_KUILS ingle As Single 

Private CNS_NOT.KUH_Double As Double 

Private CNSJiOTJOJH_Varlanl As Variant 

Private CNSJfOTJiUILCurrency As Currency 

Private CNSJUTJiUILByle As Byte 

Private CNSJWTJMLDate As Dale 
Ren $PRV2«4 
§X172© 
Ren *PRY2E4 
Ren SPRV4I4 
K1S20 
Ren JPRV4E4 
Ren SDEFEND 

Public Sob UalnO 

Ren aVECREP Privale Sub L4_e%3lM«8M*29§_6X029 0 
B0X_1 : 
Ren PRYLG 

If *«30MX31©_e»28M*29^W028_wk = CNSJOT_.KlfflL.Sl ring And . 
Ren PRVXG 

t3.tt31ft_e%280_tt2M„«O2& = M078 Then 
GoTo B0X.2 
End If 
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ie^ (Kcoif^Tc) /m^/e^Jas/gffliai/ / «t»asg>L4 (ta^i2 8o-2) , 

GoTo BOX _E 

B0X_2: 
Rem PUB IN 

If WM305M*315M*285§_W295«_S*200& = CNS_N07JOIHJX235i Then Go To Box _3 
Rem PRVLG 

Rem PRVLG 

W0X3Ol w W3!«jm8§ H 6X2M M «XO2ijvk = 'I* 
B0X_3 : 
Rem PRVLG 

IT W«%308_W3ie_W28§JSK29S««02« - wk O CNS JOT JiUHJt ring Then 

GoTo B0X_4 
End If 

GoTo B0X_5 

B0X_4 : 
Rem PRVLG 

W«ra0M*31tJM8C_M29*_«Z028 = ra3OM*31GJ%28M*29M*O20_wk 
Rem PRVLG 

CTRLJfWS30MX28§_©X29»_STSJRANSlTI0NJ ? LG = CTRLJ'W30MX28M%298_STS_TRANSITIONJ ? LG f 1 
GoTo B0X_E 

BOX .5 : 
Rem PRVLG 

If CTRL - V8X30©_W28MX29«JTS_TRANSITIONJ ? LGJ? 
= CTRLJ8X30«.«X28iJX29©JTS - TRANSlTIONJ f LGJ > P Then 

GoTo BOXJ) 
End If 

GoTo B0X_7 

B0X_6: 
Rem PRVLG 

CTRLJ8X30MX31«JX28«.©X29e.WO2iJ5OTJr , ALIDJ J LG = True 
GoTo BOX.E 

B0X_7 : 
Rem PRVLG 

CTRLjm30O*29&JNGJ ? LG = True 
GoTo BOXJE 

BOX J: 
End Sub 
Rem *** PRCEND 
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ttB-S'*? h)MD® : 1 1 5 - 1 

Option Explicit 
Ren SJIEFPUB 
Rpb PUB4N4 

Pr i vat e *W30u_tt31MHK9Ji«9MX028 (SX26&. «27§) As St ring 
Ren PIBIS4 

Private «M3056_W315t>_«285O«95©_«200ei6l265§.«*2756) As 6*2356 
Ren PB5C4 

Private CTRLjeX30e_e*28&_e»29b.S7S_TRANSlTI0N.FLG As integer 
Rets PUB5Y4 

PriTate CTRiJW30e_«28e.«296_STS_TRAHSiTIONJ J ULP As Integer 
Rem PUR5B4 

Private CTRLJ6«0§.e%286_W298^STS„TRANSITiONJ : LGJ , P As integer 
Ren PIIB6F4 

Private CTRL JMUOt„«U I 6_eX288J*29& JjX026JiOT_VAL 1 D_FLG (8X268. 8X278) As Boo I ean 
Rea ^DEFEND 
Res PCB4B4 

' Private m300«_«X3l08_6X280ejl290e_eX200& (8X268. 8X278) As String 
Reo P1TJ4N3 

P r I va t e 1 3_§X3 ie_8X2fte..eX29&_§X02e (8X2D8. «27« As integer 
Rem PDB4N2 

' Privale *2_6X31*JX28e_8X29ejX026(W26e. 6X276) As Siring 
Ren SDEFPRV 
Ren PRV2T4 

Private V8X306JBX3 16j«286_6X296_6X026jark 18X26§\ 6X2781 As S t r i ng 
Ren PRV7R4 

Private CTRLJ6X30e_8X29ftJSG_FLG As Booiean 
Ren *PUBKU 

Private CNSJfOT.KllLSlrlng As Siring 

Privale CNSJiOTJML Integer As Integer 

Private CHS_N0T_KUlL3oolean As Boolean 

Private CNS.NOTJiUlLLong As Long 

Private CNSJfOTJiVILS ingle As Single 

Private CHSJWTJOHLDouble As Doable 

Privale CNSJIOTJvl'HJ'a riant As Variant 

Privale CNSJfOTJCWLCurrency As Currency 

Privale CNS_NOT_KUH_Ryle As Byle 

Privale CKS_NOT_KLU.Bale As Dale 

Privale Gyou as Integer 

Private Rel'u as Integer 

Private UtLCnt as Integer 

Privale Solo.Cnt as integer 

Privale Ulijtax as Integer 

Privale Sotojlax as Integer 
Ren $PRY2M 
6X1721 
Ren SPRY2E4 
Ren $PRV4»4 
8X1826 
Ren SPRV4E4 
Ren 5DEFEND 

Public Sub UainO 

Ren SVECREP Private Sub L4_8X3 l6_6X28e_eX298_6X026 0 

Gyou ■ 0 



£B|E# 2004-3099195 



#M 2003-331373 



^-v: 310/ 



[03 2 41 



ft»-^^ 115-2 

iEm (KtQgs^Tc) ^m^/s^ff ^-^@H/tfEffHg)L4 tffgifc^i 290-2) 

Relo = 0 
Reo PRVLG 

U 6*34* < 8X350 then 
Reo PRYLG 

UtlJIax SX2R6 

Reo PRYLG 

SoioJIax « W276 

End If 
Ren PRYLG 

If «346 > I hen 
Ron PRYLG 

Cl ijlax « t*27« 

Ren PRYLG 

SoioJIax = GX2G6 
End If 
Clt.Col = 0 
Solo.Cnt * 0 
Do Until Solo.Cnl * SoioJIax + 1 
PtLCnt * 0 
Rem PRYLG 

I f 0X346 < 6X356 I hen 
Gyou * UILCdI 
Setu = Soto.Cnt 
End If 
Rem PRVLG 

1 f 623-18 > 6X356 Urn 
Gyou = Sota_Cnl 
Relu = LULCni 
End H 

Do Until CI LCnt = UUJIax + I 
B0X_1: 
Reo PRYLG 

If »6X308_eX3I&_§X286_8*296_6XQ26j»klGyou.Relu) = CSSJiOTJMLSlring And _ 
Ren PRYLG 

* 3_W3 1 6_6X288_6X29e_6X026 (Gyou. Re t a) « 6X076 Then 
GoTo B0X_2 
End If 

GoTo B0X_E 

B05L2: 
Ren PUB IN 

If m3056_eX3l56_6X285e - m95MX2006IGyou.Reiu) * CNSJI0TJML6X2356 Then Go To Box_3 
Ren PRYLG 

»6X306_6X3 1 6_6X286_eX296L8X026jrti (Gyou. RetU) c «6X3Q5e__8X3 l$6Jrt285«_6X2956_6X2006 IGyoa. Re t n) 
Ren PRYLG 

«X306_6X316JX286_6X296,6X02§.wk(ft-ou.Relu) » "I* 
B0X_3: 
Reo PRYLG 

I f *6X306_8X3 1 8_6X286..eX298_eX02e.jrk (Gyoo. Re tu) O CNS.NOT JJUILS trlng Then 

GoTo mj 
End If 

GoTo B0X_5 

BQX.4: 

Ren PRYLG 
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ftS-^* M^ffi: 115-3 

gtg (KO&fcfejc) /m^.^M»«in.--g?C535/Jft^ga>L^ (gJgffr*? I 2 9 0- 3) 

»§W0Ml3ie.ei28Q_«i29§„eX02e (Gyou, Reiu) = »M30&_«3I*-W28§_«29t«.tt02^vk IGyou, Rem) 
Ren PRVLG 

CTRLJ«306 - «X2S6„6X2fle_STS.TRANSlTICN,FL(; - CTRL_«W30M«3&..«29ejTS_TRAXSlT10N_FLi; t I 
GoTo BOO 

BOX J: 
Ren PRVLG 

1 I CTRL30%30§_«286_§X29&_STS_TRANS1TIOK_FLG_P 
* CTRL.»tt30M«8MX296.STS_TRANSITION_FLG.PP Then 

Goto BOO 
End IT 

GoTo BUX_7 

B0X.6: 
Ren PRVLG 

CTRL_»tt30&_6*3 1 B_8«80 J129&_M02& JiOT.VAL I D__FLG (Gyuo, Re lu) = True 
GoTo BOO 

B0X_7: 
Ren PRVLG 

CTRLJ6*30g_.§*29©JNG_FLG = True 
GoTo BOX J 

B0X_E: 

UlLCnl = UlLCnl t 1 

Rem PRVLG 

! r M34© < «35« Ihen 

Gyoo * Ut i_Cnl 

Retu * Solo.Cnl 
End If 

Rem PRVLG 

H «34§ > 6X358 then 

Gyou = Soto^Cnl 

Relu = UlLCnl 
End If 

Loop 

Solo_Cni ■ Soto_Cnl + 1 
Rem PRVLG 

If 6*349 < 0X35§ I hen 
Gyou * UlLCnl 
Relu = Soto_Cnt 
End U 
Ren PRVLG 

If 8X346 > 0*358 then 
Gyou » Solo_Cnl 
Retu = MLCni 
End If 
Loop 

Gyou ° 0 

Retu ■ 0 

tl\J*\ « 0 

SotoJL'ni = 0 

LI IJtfax - 0 

SotoJIax - 0 
End Sub 
Ren *** PRCEND 
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tta-^? hJlcDS : 1 1 6 — 1 
gig (KOffi&Tt) /lii:rj/&i^&^tBTT/%fr%<PL 4 (gi^m^ 1 3 0 0- 1 ) 
Option Explicit 
Ren JuEFPUB 
Rem 

Private *8X30e_8X3ie_«286_&X29MX02t As Sir Ins 
Rem PUB IN 

Private »8X305@..6X3156_M285&_ex 2D 58.8X2008 As 8X2358 
Ren PUB5H 

Private CTRl_IW30§_«28&_M29^STS - TRANS!TION_FLG As integer 
Rco PUB5Y4 

Private CTRUm30M>2UM«96_STS_TRANS[TtONJ 7 LG.P As Integer 
Rod PUB5B4 

Private CTRL_?«30«_63f26B.«29ft_STS_TKANSlTIOK.FLG_PP As Integer 
Rco PrBCF4 

Private CTRL_««30MMi6_«288_ea!29§_«6026J<0TJALIDJ r LG As Boolean 
Rem JDBFEKD 
Rem PUB4B4 

' Private nX3008_eX3108_6X2R08_8X2908_6X2008 As String 
Rem PUB4N3 

Private WJL8X31 8.6X2 S8_8* 2 98.6X0 28 As Integer 
Rem PI'B4N2 

' P r 1 vat e W2_8« I e_6X288.6X298_6XD26 As String 
Rem 3DEFPRY 
Rem PRV2T4 

Private «6X3a§_eX3l6_eX286_8X298_eX02e_wk As String 
Rem PRY7R4 

Private CTRLjr8X308_eX298JN(LFlG As Boolean 
Rem tPUBKU 

Privote CHS_NOT_KUH_Siring As Suing 
Private CNS_NOT_KUHjnteger As integer 

Private CNSJiOTJiUILBoolean As Boolean 

Private CNS_NOTJUni_Long As Long 

Private CNSJJOTJMLS ingle As Single 

Private CNSJtOTJCUHJtouble As Double 

Private CNS_NOT_KUIL Variant As Variant 

Private CNSJlOTJOJILCurrency As Currency 

Private CNSJlOTJClTLByle As Byte 

Private CNSJiOTJilTLOate As Date 
Rem SPKTO4 
8X1726 
Rem XPRY2E4 
Rem SPRV4W4 
0X1828 
Rem SPRV4E4 
Rem SIiEFEND 

Public Sob MainO 

Rem 3VECREP Private Sub U„eX3ie_eX288_eX298_6X026..eX07e0 
BOX. I: 
Rem PRVLG 

If W6X308.ex3]6_6X28e.eX29e_6X02e_wk = CNSJtOTJttTO String And _ 
Rem PRVLG 

M_eX31§.8X286.JX298.8X026 = 8X078 Then 
GoTo B0X_2 
End If 
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tt^-^^ wkos : 116-2 

ie& (K<om±7t) /mil/ &wm/%?mm/m^m<DL4 {mm&m 300-2) 

G0T0 BOO 

BOX J: 
Rem PUB IN 

If = CNS_N0TJO_@£235@ Then Go To Box_3 

Rem PRYLG 

ff@a630OX3 l§_8X288JX29§_8X02Ork = m3O5Oni5O*285O^958J?*2OO0 
Rem PRVLG 

We%30MX31fl_e*28MX29ej*02«_wk = " 1* 
B0X_3 : 
Rem PRVLG 

If m308Jft3lOraO*29O*02®_wk O CNS_N0TJ0JH_String Then 

GoTo BOO 
End If 

GoTo BOO 

BOO : 
Rem PRVLG 

Wf%3O6_8X31«JX280_W298_eXO2e = W©X3QO*31M*28O*29MX02§j»k 
Rem PRVLG 

CTRU'©X30©JX28l_W29i_STS - TRANSlTIONJ ? LG = CTRLJf8S630«JX28§.§X29«.STS.TRAMSlTI0NJ J LG + 1 
GoTo BOX J 

BOO: 
Rem PRVLG 

I f CTRLJ"6X30O*28OX29§„STS_TRANSITI0N_FLG_P 
= CTRL.VSX30^«X28«_«X29flLSTS^TRANS[TION_FLG_PP Then 

GoTo B0X_6 
End If 

GoTo BOX J 

BOX Ji : 
Rem PRVLG 

CTRLJ"§X30«.«X31«J%288 - «X29fi_iX02O0O , ALIDJ ? LG = True 
GoTo BOXJB 

BOX J?: 
Rem PRVLG 

CTRLJ8X308_8X29ejNG_FLG = True 
GoTo BOO 

BOO: 
End Sub 

Rem *** PRCEND 
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tta-'fe'*? h)MD%> : 117-1 
iEJtg (K<Pi%±7C> tHj?/W SgftVJftlfrBcQL 4 (gJ3Nft*3 13 10-1) 
Option Explicit 
Ken aDEFPUB 
Res PDBJN4 

Pr I va te 16X306.6X3 J6_6X286_6X296_eXQ26 (6X268. 6X278) As Slrins 
Ren PUBIN4 

Private »6X3O56_eX3158_6X2856_&X2956jrt2008<§X2658, 6X2756) As 6X2356 
Ren PUB5C4 

Private CTRL_«§«30&_«28§_eW9e_STS^TRANSITiON.FLG As Integer 
Rem PUB5YJ 

Private CTRL.fteW06_«286_e*29«^STS_TRANSITION^FLCJ > As Integer 
Rem PUB5B4 

Private C7RLJ6X306_6X28e_eX296_STS_TRANSmONj™j , P As Integer 
Red PVB6F4 

Pr i va t e CTRL_*6X30«L6X3 i 6.6X286 JJX298„eX026J(0T_VAL 1 D FIG (6*266. 6X276) As Boo 1 ran 
Ren 4DEFEND 
Rco PUB4B4 

' Private m3006_6X3108_8X280B_6M906_$X200§ 16X266. 8X278) As String 
Rem PUB4N3 

Pr i va t e 1 3.8X3 1 8_eX28e_e*296_8X02t (8X268. 8X278) As integer 
Rcd PUB4N2 

' Private W2.6X3l«_6X28&JtX29&jra028 (8X268. 8X278) As String 
Red 3DEFPRV 
Rem PRV2T4 

Private H6X3Qe_6X3 16.6X288.8X2 98_8X028jsk (6X266. 6X276) As String 
Rem PRV7R4 

Private CTRL.B 6X308.8X2 98_ I NG.FLG As Boolean 
Ren *PUBKtl 

Private CNSJWTjaTLSlring As Siring 

Private CNS.NOTJiUUnleger As Integer 

Private CNSJIOT.KULBoolean As Boolean 

Private CNS_NOT_hTH_Long As Long 

Private CNOOTjaiLS ingle As Single 

Private CNS_NOTjOJH_Double As Double 

Private CNSJIOTJOHUarianl As Variant 

Private CNSJiOTJOJILCorrency As Currency 

Private CNSJIOTJUHLByte As Byte 

Private CNSJTOTJUIIUJate As Dale 

Private Gvoo as Integer 

Private Relu as Integer 

Private Uli.Cnt as Integer 

Private Snlo.Cnt as integer 

Private UtIJIax as Integer 

Private SotoJIax as Integer 
Rem SPRV2I 4 
6X1726 
Rem IPRY2E4 
Rem JPRV4W4 
8X1826 
Rem JPRV4E4 
Rem ^DEFEND 

Public Sub Main 0 

Rem iVECREP Private Snb L4_8X318_8X286.6X296_6X028_6X0760 
Gyou c 0 
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Retu * 0 
Ren PRVLC 

If 6X348 < 6X356 I hen 
Ren PRVLG 

ItiJJax * 6X2G6 
Rem PRVLG 

SotoJIax = 6X276 
End K 
Ren PRVLG 

H §S34& > fi%m then 
Rpd PRVLG 

Utijlax * 6*276 

Ren PRVLC 

SotoJIax = 6X266 
End IT 
UtLCnl » 0 
Soto.Cnl = 0 
Da Until Soto.Cnl = Soiojlax «■ I 
HlLCnl = 0 
Ren PRVLG 

If 6X346 < 6X356 then 
Gyou = UtLCnl 
Retu » Soto.Cnl 
End If 
Rep PRVLG 

If 6X346 > 6X356 then 
Gyoo ■ Soio_Cnt 
Re to = Ull_Cnt 
End If 

Do Unlil PIIJM = UMJlax t t 

nox_i: 

Ren PRVLG 

U B6X3O6_6*3]§_6X286.m9§.eX02e.vk (Gyou. Retu) = CNS_N0T.K01I_-lrlng And _ 
Rem PRVLG 

W3_6X316_6X286_6X296JlX026(Gv<M,RelU) « 6X076 Then 
GoTo B0X.2 
End If 

GoTo B0X_E 

B0X.2: 
Rem Pl'BlN 

If «6X3056_6X3156_0X2856_6X2956_6X2006(Gyoa.Relu} • CNSJ>"0T_KI)H.6X2356 Then Go To Box_3 
Ren PRVLG 

m306_6X3 16_6X2B6.8X296.6X026.wk (Gyou. Re tu) « ff 6*3056.6X3 1 56.6X2856.6X2956.6X2006 IGyou. Re I u) 
Ren PRVLG 

TOX30e.6X316_6X28MX296.6X026.wktGyou.Relu) = * I* 
BOX.3: 
Ren PRVLG 

I f V6X306.6X3 1 6.6X2 86_6X296_6X026_wk IGyou. Re til) O CNS.NOT.KUH.S t r i ns Then 

GoTo B0X.4 
End If 

GoTo B0X.5 

B0X.4: 
Rem PRVLG 
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iEJg (K<Ogfi<fc?c) /[lift «^ft/;StSft/%ff%g?L4 (g-Fg^Q 1 3 10-3) 

m306_M316_.6X28&_6XZ9MXl)2&(Gyou.Retn) = mi06_6X3)&j!X28&_§X29MX026jrk(Gyou. Rcto) 
Ren PRVUJ 

mLje%306.e«RM*296_STS_TRAUSJTI0NJT.G = CTRLJ«306_§X286_6X2983TS_TRANSITION_FLC + 1 
GoTo B0X..E 

BOX J: 
Rra PRVLG 

I If CTRL_««30MX28&„6%29MTS.TRAKSIT10N.FLG_P 

« CTRl_»eX30?_§X28M*296_STS.TRANSITJON.FLG_PP Then 

GoTo B0X.6 
End If 

GoTo B0JL7 

B0X_6: 
Ren PRVLG 

CTRL J 6X306 _«3 1 6_6X286_§X2 96.6X026 JiOTJ'AL 1 D_FLG (Gyon. Rem) = True 
GoTo BOX_E 

B0X.7: 
Ren PRVLG 

CTRL_m308Jft290_ING_FLG = True 
GoTo BOX_E 

BOX.E: 

UU_Cnt = UlLCnl + I 

Ren PRVLG 

If 6X346 < 6X356 l hen 

Gyou = L'li_Cnt 

Retu = Soto.Cni 
End If 

Ree PRVLG 

If 6i34(j > §*35§ then 

Gyoo - Solo.Cnl 

Relo = Oti.Cnl 
End U 

Loop 

Soto.CDl ° Soto.Cnl » 1 
Rem PRVLG 

If 6U46 < 6*358 I hen 
Gyou = Uli.Cnt 
Retu * Solo_Cnt 
End If 
Rem PRVLG 

If 6X346 > 6X356 then 
Gyou ■ Solo_Cnl 
Relu * UU_Cnt 
End If 
Loop 
Gyou = 0 
Relu = 0 
UlLCnt = 0 
Soto_Cnt * 0 
UHJIax = 0 
Solojlax - 0 
End Sub 
Rem **♦ PRCEND 



itifE# 2004-3099195 



2003-331373 



^-y: 317/ 




13 3 1] 



ttm-&*<{? b)V<OM : 1 1 3 - 1 

mm (kcdm^tc) sitix/'&pmymmi&/%iftm<DL 4 (^mmm 320 



- 1) 



Option Explicit 
Rem #DEFPUB 
IRem PUR4N4 

Private fl@*30O*31O*28O*29O*02@ As String 
IRem PUBIN4 

Private K§S305O*3 150*2850*2950*200© As GX2356 
IRem PUB5C4 

Private CTRLjm30@_^28O^29^STSJRANSITI0N_FiG As Integer 
IRem PUB5Y4 

Private CTRL_W§«30@_^28O»29@_STS_TRANSlTI0NJLG^P As Integer 
IRem PUB5B4 

Private CTRLjm30O*28@_^29§_STS,TRANSlTI0NJLGJP As Integer 
IRem PUB6F4 

Private CTRLJ'^30@_^31O^28O%29^02@J0TJ ! ALID_FLG As Boolean 
IRem 3DEFEND 
I Rem PUB4B4 

Private W@X300O*3 100*2800*2900*2006 As String 
IRem PUB4N3 

Private W3_GK3 10*280*290*02© As Integer 
IRem PUB4N2 

Private ff2_G%31O*28O*29O*02@ As String 
IRem 3DEFPRV 
[Rem PRV2T4 

Private W@S30O*31O*28O*29O*02Ok As String 
IRem PRV7R4 

Private CTRLJM30O*29@_JNGJ ? LG As Boolean 
IRem *PUBKU 
Private CNSJ!OTJ(UH_String As String 
Private CNSJWTJttiHJnteger As Integer 
Private CNS JOT JvUHJoo lean As Boolean 
Private CNSJlOTJCUH_Long As Long 
Private CNSJWTJttilLS ingle As Single 
Private CNS_NOTJCUH_Double As Double 
Private CNSJWJttIH_Va riant As Variant 
Private CNSJMTJCMLCurrency As Currency 
Private CNSJtoTJUIHJByte As Byte 
Private CNSJ*OT_KUH_Date As Date 
[Rem $PRV2W4 
@*1728 
Rem $PRV2E4 
Rem $PRV4ff4 

\mm 

Rem SPRV4E4 
I Rem SDEFEND 

Public Sub Main 0 
|Rem SVECREP Private Sub L4_@*3 10*280*290*020 0 

BOX_ 1 : 
IRem PRVLG 

If W8S30O*3 10*280X290*026 = CNS_NQT_KUILString And _ 
IRem PRVLG 

W3_8*3 10*280*290*02® = 6*078 Then 
GoTo B0X_2 
End If 
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GoTa B0X_E 

BOX J: 
Rem PUBIN 

If WOT305O*3 15O*285O«295OX200© = CNS_NOTJOJO*2358 Then Go To Box_3 
Rem PRVLG 

W©%30§_©X31©_«X28OX29©_©X028jrtc = ff©X305©_©X3l5©_©*285©_©X295©_©X2008 
Rem PRVLG 

W©X30©_©X31O*28©_©%29O*02©jfc = * 1" 
BOX _3: 
Rem PRVLG 

If W©X30©_©X31©_©X28©JX29O*02©_wk O CNSJJOT_KUH„String Then 

GoTo B0X_4 
End If 

GoTo B0.X_5 

BOX J : 
Rem PRVLG 

W«X3O©JX31©_©X28©_©X29©_0XO2« = MX3G&_eX3ie_«X28e_©X29©_©X02©_wk 
Rem PUB4B4L 

W@X300S.6X3 10©JX280OX290©JX2008 = *M30©JX31OX28©_©X29©JX02© 
Rem PRVLG 

CTRL_V8X30e_eX28OX29OTS.TRANSITI0N_.FLG = CTRL_W8X30OX286_§X29OTS .TRANSIT I ON_FLG I 1 
GoTo B0X_E 

BOX J : 
Rem PRVLG 

I f CTRL J©X30©_«X28©_©X29«_STS JRANSITION.FLG_P 
= CTRLjeX30OX28OX29OTS.TRANSITI0NJPLG_PP Then 

GoTo B0X_6 
End If 

GoTo BOXJT 

B0X_6 : 
Rem PRVLG 

CTRL^W8X30OX3183X28OX29OX026_N0TJ , ALIDJLG = True 
GoTo BOXJt 

B0X_7: 
Rem PRVLG 

CTRLJ0X3OOX29OSGJLG = True 
GoTo BOX.E 

B0X_E: 
End Sub 

Rem *** PRCEND 
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£W (KtPiftifcjc) tB^6d^S^<aTr/lgff^<QL 4 (giSffrQ 13 3 0-1) 
Option Explicit 
Ren 3DBFPCB 

Rem mm 

Private «6X3Q6_6X3 16.612 86_6%29SJX026 As Strinfi 
Ren PHB1N4 

Private »«305G_eX3156..&X2856_eX29Se_6X200& As 6X2356 
Ren PIB5C I 

Private CTRL_f«306^X28M*29l_STSJRANSIT10NJ r lG As Integer 
Rcd PUB5Y4 

Private CTRL.«W308„§«Z8e_W29€_STS_TRANSITION - FLtLP As Integer 
Rem PUB5B4 

Private CTRL_MX308_6X2ae.§t29§_STS.TRANSIT10N„RG_PP As Integer 
Rem PUB6F4 

Private CTRLJW30a_§X3IMX286.«;296.6i02ej<0T_VALID_FLC As Boolean 
Rem 3DEFEND 
Rea PUB4B4 

' Private W6X3Q0MX3I0S_§*280O%2908_§l200& As String 
Reo PLWSS 

Private *3_6X31&_eX28«_eS296J«026 As Integer 
Ren PM2 

' Private S2.&X31 6.6X28 6_6X29G_6X02& As String 
Ren 5DEFPRV 
Ren PRV2T4 

Private m30§_.§X3l6JX28&JlX296_6X026_.«k As String 
Ren PRV7R4 

Private CTRL_«6X306_8«96JNGJ ! LG As Boolean 
Ren *PUBKU 

Private CNS_NOT_KHH_Slring As String 
Private CNS_NOTjttJH_ln(egcr As Integer 
Private CNSJTOTJMLBoolean As Boolean 
Private CNS_NOTJ(UHJ.ong As Long 
Private CNSJIOTJvlTU ingle As Single 
Private CNSJWTJiUHJlouble As Doable 
Private CNSJiOTJOJIU'a riant As Variant 
Private CNSJlOTJOJILCurrency As Currency 
Private CNSJIOTJUHLByle As Byte 
Private CNSJMTJOnUate As Date 
Ren *PRV2»4 

ex me 

Rea $PRV2E4 
Ren *PRV4K4 
6X1826 
Ren $PRV4E4 
Rem S DEFEND 
Public Sub MalnO 

Ren SVECREP Private Sub L4„6X3 1 §_6X286_6X2 98 JtXQ2B_6X076 0 

BOXJ: 
Rcd PRVLG 

II ff©X30§_6X316_©X286JIX29e_§X026 = CNSJH>T_KUH_String And _ 
Ren PRVLG 

T3_§X316_«X28Q_6X296_6X02§ = 6X076 Then 
GoTo B0X_2 

End H 
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JEM (K<Pm*k7i) ^ia^J^/^«W/^^WOL4 3 3 0-2) 

GoTo BOX J 

BOX J: 
Rem PUB IN 

If M305O^315@«@%285^@%295O^200§ = CNS_N0T_Ki:O%235& Then Go To Box_3 
Rem PRYLG 

ftm30a_65K31O*28e_@»29©^02@_wk = W&n05O*315OS285@3V295§_@r2006 
Rem PRVLG 

W^306_@%310»280*29055026^wk(Gvou, Retu) = " i' 

B0X_3: 
Rem PRVLG 

If W30Mft31OS28@J>S29O*02@jvk O CNSJMTJOJlLString Then 

GoTo B0X_4 
End If 

GoTo B0X_5 

B0X_4: 
Rem PRYLG 

Rem PUB4B4L 

W@%300O%3 100*2800*2900*2006 = W@S 3 00*3 10*280*290*02® 
Rem PRVLG 

CTRL_ff@5K30O*28OX29§_STS„TRANSITI0NJLG = CTRL3^30O^28@^29@^STS„TRANSITI0N„FLG + I 
GoTo BOX J 

B0X_5: 
Rem PRVLG 

If CTRL_W^30O^28@^296^STS_TRANSITI0N_FLG^P 
= CTRLJ'@X30@_^28O^29^STS^.TRANSlTI0NJLG_PP Then 

GoTo BOXJ) 
End If 

GoTo B0X_? 

BOXJ : 
Rem PRVLG 

cmjm30O*3IO*28O*29O*02O0T_VALIDJLG = True 
GoTo BOXJ 

BOXJf : 
Rem PRVLG 

CTRL_W@*30O*296JNGJLG = True 
GoTo BOXJ 

BOXJ: 
End Sub 

Rem »* PRCEND 
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Opl ion Explicit 
Ren 3DEFPUB 
Ren PUB4N-I 

Private m306_6*3l6JM8frJ>X29M*02§{&X26*. 61276) As Siring 
Ren PUBIN4 

Private W6X3056_6X3 1 &8_eM8a6_6X2956_6X20Q& (6X2656. 0*2 756) As «2 356 
Rea PUB5C4 

Prlrale CTRl_BW30^M28OX296_STS_TRAKSIT]DN_FLG As Integer 
Rem PCB5Y4 

Private CTRL_»«30MW8§.M298_STS_TRANS!71ON_FLruP As Integer 
Ren PIB5R4 

Private CTRL3§»30&_W , 28M*296_STS_TRANS!7ION.FL(LPP As Integer 
Ren PIW4 

Private CTRL_«6l30§_W3l^m8&_«29§_«026^'(rTJ , ALn]_FLG{§126e,«!27e) As Boolean 
Ren 3DEFEND 
Rem PUB4B4 

' Private B6«300&_«310M*280ft_«C290§_§X200e {§35260. 8JJ27W As String 
Rem PUR4N3 

P r i va l e * 3 JM I §_6t2 8e_§ J29&Jrt02e (8X2 6 6. 6*276) As I n t ege r 
Rem PUB4N2 

' Private W2_6X31G_6X28M*296..eX02e (6%2 66. 6X276) As Siring 
Ren JDEFPBV 
Ren PRV2T4 

Private ff W30MX3 1 6_e*286_6*2 96..8X02 8_«k 16X266. 6X276) As Siring 
Ren PRV7R4 

Private CTRLjeX306_W29#„lNO.FLG As Boolean 
Ren •FUBEI' 

Private CXSJWT.KUrLSMag As String 

Private CNS_NOT_KUrLlnteger As Integer 

Private CNSJJOT_KUH_Boolean As Boolean 

Private CNSJJ07_KUH_Ung As Long 

Private CNSJJOTJCUILS ingle As Single 

Private CNS_NOT_KlflLDouble As Double 

Private CNSJ\07_Kl)H_Varlanl As Variant 

Private CNSJfOTJtfJrLCurrency As Currency 

Private CNS^NOTJUiitBW As Byte 

Private CNS_NOT„KUHJ)ale As Date 

Private Gyou as Integer 

Private Retu as Integer 

Private UtLCni as Integer 

Privale Solo_Cnl as Integer 

Private Ulijlax as Integer 

Private SotoJJax as Integer 
Rein 8PRY2W4 
6X1 72§ 
Ren JPRV2E4 
Ren $PRV4«4 
6X1826 
Rem IPRV4E4 
Ren 3 DEFEND 

Public Sub MainO 

Ren aVECREP Private Sub L4JX316_6X286_6*296J>*0261) 
Gyou - 0 
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Relu = 0 
Rem PRVLG 

)f 0X348 < l hen 

Rem PRVLG 

LUJIax = 6X256 

Reo PRViG 

SotoJJax = 61276 
End If 
Eee PRVLG 

If 6X346 > 41356 I hen 
Rem PRVLG 

Ul i JJax = 6X276 
Ken PRVLG 

SotoJIax = 6X266 
End If 
riLCnl = 0 
Solo_Cnl = 0 
Do L'nlll Soto.Cm * Soiojlax * 1 
III LCnt = 0 
Ren PRVLG 

If 6X346 < 6X356 then 
Gyou * Hi LCnt 
Retu « Solo_Cnl 
End If 
Reo PRVLG 

If 6X346 > 6X356 theo 
Gvou ■ Solo.Cnt 
Retu * IILCbI 
End If 

Do Pnlil UlLCnl « utijlax + I 
B0t_l : 
Reo PRMG 

If 86X308.6X3l6_6X286_6X298_6X026Wyou.Relu) *= CNS NOTJiUH_StrIng tod 
Reo PRVLG 

K3_eX3)8_8X286_6X296_6X026{GYOu.Retu) = 6X076 Then 
GoTo B0X.2 
End If 

GoTo B0X_E 

B0X_2: 
Ren PUBIS 

If W6X3056„8X3l56^eX2856_6X2958^X2006(Gyou,Retu) « CNS_NOT_Klffl 6X2356 Then Go To Box 3 
Ren PRVLG 

«6X306_6X3]8_8X288_6X29e_eX02e_»k(Gyou.Retu) * 86X3056_«X3I5» 8X2856_6X295e 6X2008 (Gyou. Re I u) 
Ren PRVLG 

«eX30e_8X3ie_eX286_6X296_6X028_wk(Gyou.Relu) = T 
B0X_3: 

Rem PRVLG 

H WX306_6X316_8X286_8X296_6X028_»k(Gyou.Retu) O CNSJQT KHLSlring Then 

GoTo B0X.4 
End If 

GoTo B0X_5 

BQJL4: 
Ren PRVLG 
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ff§W0fe_§X31M1288.«29&.6WJ2Q(Gi-uu.Relu> = m306_§1316 «2*l?_6X296 W02«_»k (Gyou, Retu) 

Reo PKB4B4L 

m300MVn06J%2806_G«9Ce_61200e(Gyou.Relii) * 61316 61286 «X296_W026 (Gyou. Rein) 

Ren PRVLG 

CTRUe«D§_6««OJ29^STS_TRANS!T)0N.aG * CTRI,Jl&13Qfe_e«86 6X296 STS TRANSITION FLG ♦ 1 
GoTo BOX.E " " 

B0X.5: 
Ren PRVLG 

1 1 CTRL_«61306_6128& J«96_STS_TRANS I T I OfLFLGJ 3 

= CTRLJM30e^W86_ei29&^STS.TRANSITlON FLGJ»P Then 

GoTo B0X_6 
End If 

GoTo B0X.7 

B0X.6: 
Rem PRVLG 

CTRL_RM30e_6»3l§_«28e_W29OSi02M0U'ALID FLG (Gyou. Retu) = True 
GoTo BOO 

B0X_7: 
Rem PRVLG 

CTRLJ6M06.JX29<UNG_FLG = True GoTo BOX J. 

BOJLE: 

tti.Cnl ° UiLCnl + ) 

Reo PRVLG 

If 6X346 < 6X3SG then 

Gyoo « rilJCnt 

Seta = Soto_Cnl 
End If 

Rem PRVLG 

1 f 61349 > 6X359 Iben 

Gyoo = SotoJtol 

Relu = Utl_Cot 
End If 

Loop 

SoloJTnt = Solo_Cnt f I 
Rem PRVLG 

If 6X346 < 6X356 then 
Gyou * UlLCnt 
Relu = Soio_Cal 
End If 
Rem PRVLG 

I r 61346 > 61356 then 
Gyou * Soto_Cul 
Relu * Uli_Cn! 
End if 
Loop 
Gyou = 0 
Rein * 0 
Ul i_Cn I = 0 
Solo__Cnl * 0 
UliJIax » 0 
SoloJIax * 0 
End Sub 
Rem PRCEND 
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Option Explicit 
Ren 3DEFPUD 
Rem PPB4N4 

Pr Irate ««30§_§X3 1 M*2&M*29«L6*02€ (8\2fi§. «27§) As S t r i ng 
Ren PIHJIN4 

Private m305§_6W15§_«285§_m9a^«2008{§JS2C5§, W275& As «XZ3S& 
Ren PHB5C4 

Private CTRLJ«308„«l;286„«29&„STS_TRANSITia , l_FLG As Intecer 
Ren PUB5Y4 

Private CTltLJ«30&_«288_§X29§_STS.TRAKSlTiavj : LG_P As Integer 
Ren PUB5B4 

Private CTRLJ«30S„W28MX29^STSJRANSITlON_FLG_PP As Integer 
Ren PUB6F4 

Privale CTRL-«M306_«31&_«»2t{&_«c29M*02O0T_VALlD_FLG(e!l;2G6. fc*27tt As Boolean 
Ren 3 DEFEND 
Reo PUB-4B4 

1 Private »eX300^OT3i0§_«280e.«290&_W200ft(W268.W27a> As Siring 
Reo PUB4N3 

Privale «3_tt318_«28e_M29§^8X02§(&X26§, «276) As Integer 
Rem P11B4H2 

' Private »2_«X3 1 6_»28e_§*29e_W02§ (§*26fc «27§) As String 
Rem 3DEFPRV 
Reo PRV2T4 

Privale i©»30e.ex31©_§*28»_W29&_W02Ok(6X26©. W27B) As Siring 
Ren PRV7R4 

Prlvaie CTRL38*3GM*29e_lNG_FLG As Boolean 
Ren *PUBKU 

Privale CNSJTOTJvVILStrlng As String 
Private CNSJfOTJvUHJnteger As integer 
Private CNS_KOTJvUlLBoolean As Boolean 
Private CNS_NOTJiUH_long As Long 
Private CNSJfOTJOHLS ingle As Single 
Private CNS.NOTJCUHJJouble As Double 
Privale CNSJiOT.KUILVariani As Variant 
Privale CNS_NOT_KCH_Currency As Currency 
Private CNSJIOTJvliLByle As Byte 
Private CNSJlOTJO-'Oale As Dale 
Private Gyou as Integer 
Private Relu as Integer 
Private Ptl_Cni as Inleger 
Privale Soto.Cnt as Integer 
Private Ulljlax as Inleger 
Private Sotojlax as Inleger 

Ren mnu 
mm 

Ren JPRV2E4 
Reo JPRV4W4 
6X1829 
Ren IPRY4E4 
Ren :DEFEND 
Public Sab NainO 

Rem 3VECREP Privale Sub U_8«!M*28M*298_§*Q28_eX078 0 
Gyou ° 0 
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Sels <= 0 ' 
Ren PRVLG 

If < 6X356 then 

Ken PRVLG 

ut s jias = %%-m 

Rem PRVLG 

SotoJIax « 6X276 

End If 
Ren PRVLG 

If 6X346 > 6X356 then 
Ren PRVLG 

lUlJlax «= 6X276 

Ren PRVLG 

SotoJIax = 6X266 
End H 
UlLCnt = 0 
Solo.Cnl ■ 0 
Do Until Soto.Cnl = Solojlax 4 I 
UtLCot » 0 
Ren PRVLG 

If 6X346 < 6X356 then 
Gyou * ClLCol 
Rem = Solojtol 
End If 
Ren PRVLG 

If 6X346 > 6X356 then 
Gyou = Sotojtot 
Rem « IM.Cnl 
End U 

Do Unlit UtLCnl » Utljlax i 1 
B0.X.I: 
Ren PR\1G 

If tt6X30e_6X3ie_6X286_6X296..6X02& (Gyou. Rett)) * CNSJiOT KWLSlring And 
Rem PRMG 

B3_eX3}e_6X288_6X29e_eX026<Gyau.Relu) =6X07© Then 
GoTo B0X_2 
End IT 

GoTo B0X_E 

B0X.2: 
Rem PUBIS 

ir m3056„.6X3l56_6X285e_&X295e_6X2008(Gyou.Relu) = CNS3'0TJvUHJ*2356 Then Go To Box 3 
Ren PRVLG 

«6X306_6X3IMX286_6X296_6X026_ffktGyou.Retu) = «§X305§_6X3158 6X2856 6X2956 6X2006 IGyou. Re lu) 
Rem PRVLG 

fteX306_6X3ie_6X286_ax298_6X026^k(Cyou.Retu) * ' V 
B0X_3: 
Rem PRVLG 

If V6X306_6X3ie_6X286_«X298_eX026_vk(Gyoo,Retu) O CNS NOT KUH Slrlns Then 

GoTo BOM 
End If 
GoTo B0X_5 

B0X.-I: 
Rem PRMG 
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g& (Kco^jfeTc) smto/mMi/t&mi (giB^i 350-3) 

«6J!30&_§W10«SM«9MA02&(nyou.Rotu) = V€K308j»31ft M28§ 8XZ98 8X028 vk (Gyou. He I n) 

Rem PUWB.IL " 

96i300MX3106„e»28B6.«290e.M2008(Gyuo.Retu) - mm 8WI6 8X288 8X298 8X026 (Gyou. Rem) 
ken PRVLG 

aaOM30Oi286.W29ft.S7S„TRANSITI0^KLG = CTMjrtt3U8 6X28« 8X299 STS TRANSIT10N_FLG ♦ 1 
OoTu B0X_E 

B0X_5: 
Ren PRVLG 

I r CTRL_»«30e_6X28O*296_STS J"RANS 1 T 1 OH.FLGJ* 
= CTRL«eX3D»_6X286_8X298_.STS_TRAN.Sm0N FLGL.PP Then 

GoTo BOXJi 
End If 
UoTo mu 

BOO: 
Rem PRVLU 

CTRL.T6J!306_M3IMX28&_«29§_«O28_NOT. VALID FLG(Gyuu. Retu) = True 
GoTo B0X_F. 

B0X_7: 
Rem PRVLG 

CTRUr8X308_eX298JNG_FLG * True GoTo BOO 
B0J_E: 

CtLCal = Utl.Cnl ♦ 1 
Rem PRVLG 

1 f 6X346 < 8X358 Iben 
Gyou = Uli_Cnt 
Rci\) - Soto.Cnl 
End If 
Ren PRVLG 

If 6X346 > 6X359 then 
Gyou ■ Soto_Cnt 
Retu = CILCni 
End If 

Loop 

Solojtot « Solujnl + I 
Rem PRVLG 

I r 6X316 < 61358 Ihen 
Gyoa = UU.CdI 
Retu «= Solo_Cnt 
End If 
Rem PRVLG 

If 6X348 > 6X358 then 
Gyou - Soto.Cnl 
Retu = L' I LCd I 
End If 
Loop 

Gyou » 0 
Retu o 0 
UtLCnl = 0 
Soto.Cnt = 0 
UtlJJa* * 0 
Sotojlax = 0 
End Sub 

Reo *** PRCEND 
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yg- (1fg%=jf-9 9 9 9 - 1 ) 



Opt ion Expl ici t 




Rem # LyeeBEU SubiectName 




Rem # LyeeBELT Subject II) 




Rem # LyeeBELT INorOUT 




Rem # LyeeBELT SubjectKind 




Rem 5 LyeeBELT SubieclTvoe 




Rem # LyeeBELT EauivalencpNn 


ftvrt Ufa 


Rem 3 LyeeBELT Eauivalenrpin 


is 


Rem # LyeeBELT Se 1 f Coord inatp 




Rem # LyeeBELT Va 1 Coord ins ip 




Rem # LyeeBELT Ioffirainpfin 




Rem # LyeeBELT Phisira liw in 




Rem # LveeBELT MediitmKlnH 




Rem # LyeeBELT OhiprtNamp 


c,(y i o /St 


Rem # LveeBELT Snhiprt in t 


/3(V 1/1/3 


Rem # I vppRFI T ttf19RnY9 


AQ^ tea 


Rem # LveeBFI T ffft?ftfiY9tt'^ 


PC* 1 C 1 A 


Rem # LveeBELT tffl?R0Y9Vn 


ov 1 c OA 


Rem # LveeBELT \M9RflY4 


@4)li)0@ 


Rem 3 LvepRFIT fffl9RflY4VK 




Rem # r vppRFI T fffl9RfiYziffT 


/fttV f CCA 


Rem # I vppRFI T fffnwwo 




Rem # LveeBFI T VM1RnY9VK 


act/ 1 cm 


Rem # LveeBFI T fffnRflY9un 




Rem # LyeeBFIT MHRflYd 


@%Ibo@ 


Rem » LveeRFLT Wn3RfiY/lW<; 


0*1 b4@ 


Rem 4 LveeBFI T ffO^ROY/lWl 




Rem # LveeRFIT wn4RflY9 




Rem # IvppRFIT Hn/iRnY9tt'c 




Rem 9 IvppRFIT fifizlRnY9wi 




Rem jf I vppRFI T fffURnYJ 


fttv i Oca 


Rem # LveeRFI T tfn-dRftY/iir^ 


ft(V 10 1A 


Rem # I vppRFI T YfMRftYdffi 


@%Io2@ 


Rem «r LveeRFIT 19tvno 




Rem # LyeeBEL04type 


@%2I@ 


Rem * LyeeBELOataType 


63S23® 


Rem * LyeeBELOataLength 


@%24@ 


Rem # LyeeBELTJ)ecimal 


@%25@ 


Rem # LyeeBELOowNo 


@%26@ 


Rem * LyeeBELT.ColNo 


@%27@ 


Rem # LyeeBELT^ArayRowOrder 


@%47@ 


Rem ft LyeeBELOrayColOrder 


mm 


Rem ft LyeeBELT_SumWord 


mm 



* 
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Opt ion Explicit 
Type RoulrCoDtrolTableTvpe 

No As Integer 

SFiD As Sir Ids 

Ran As Integer 

Col As Integer 

PaMD As Siring 

SubNo As Integer 

RouteCode As String 

Next Pa I lets As Variant 

NPIDJttR As String 

NPI03M As String 

KPID_R3D As Siring 

NPID_R3C As Siring 

SendedBoulelD As String 

SendfdR3C_ff031D{IO) As String 

SendedR3C_?MlDtlO) As Siring 
End Type 

Public RCTUOOOO) As RouleConlrolTableType 

Private InputRCT As Siring 

Prirate ForSplitO As String 

Private ForSpllt20 As String 

Private Rcllndex As Integer 

Private Rctlndexl As Integer 

Private RclIndexZ As Integer 

Private RctlndexS As Integer 

Private RcLlndex4 As Integer 

Private Rctlndex$ As Integer 

Private RctlndexB As Integer 

Private Rcllndex7 As Integer 

Private RctlndexS As Integer 

Private Rctlndex9 As Integer 

Private RctlndexlO As Integer 

Private Rctlndexll As Integer 

Private RctlndexlZAs Integer 

Private Rct)ndexl3 As Integer 

Private Ret Index 14 As Integer 

Private Rctlndexl5 As Integer 

Private RctlndexlG As Integer 

Private Rcllndexl7 As Integer 

Private Ret Index 1 8 As Integer 

Private Rcllndexl9 As Integer 

Private Rctlndex20 As Integer 

Private Pallet IDJio* As String 

Public Gyou as Integer 

Public Relu as integer 

Public Uti.Cm as Integer 

Public So to Jim as Integer 

Public UlfJIax as Integer 

Public SotoJJax as Integer 

Public CTRJtEXTJ'AiLET^l D_NEU As Siring 

Public CTR_NEXT^PALLET_ I D_OLD As Siring 
Ren aPRDUEF 
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ttft-&'<*hrt.0)ffl: 12 3-2 

Ren *PRDDEF_PRV 
Reo 3DEFPUB 
Reo PEFPUB 
Ren DEFEND 
Sen 4PUBKU 

Private CKSJcOTjaiQ.Strins As Siring 
Private CNSJiOTJMUnteger As Integer 
Private CNSJlOTJCUlLBooleao As Boolean 
Private CNSJiOTJiUDJ-ong As Long 
Private CNSJiOTJMLS ingle As Single 
Private CNSJTOTJvUHJlouble As nonble 
Private CNS_NOT_KCiLVa riant As Variant 
Private CNS.NOTJvLTLCurrency As Currency 
Private CNSJJOTJiULByte As By if 
Private CNSJiOTJiMLDate As Date 
Public Sub §FomlD8JornLLoadO 
Call Tense [nil 

CTR_tfEXT_PALLETJD_NEB = ' 6EvenlProcID§r 
Call TO 
End Sub 

Public Sub eForoJlHMEventProclD§l&Para« 
»IL«fcgtelBe_ePrdId_esnD8Jffar8e •= GParae 
CTOEXT_PALLETjDJlEB « 'BEvenlProcIlW 
Call TO 

End Sub 

Public Sub TOO 

On Error CoTo OnErrorBox 

BQOETURN.A: 

Rra PUB404 

Rent PUB6I2 

Rem PUB604 

If CTR_NEXT_PALLETJDJiES = " Then 

Call SelectNextPallet Else 

CTR_NEXT_PALLET_l ILOLO « CTOEXT_PALLET_ I DJNEI 

CTMEXTJ>ALLETJOjra ■ " End If 

Call RunPallets 

Go To BOX_RETHRfLA 
BOXJND: 

END 
OnErrorBox: 

UsrBox 'Error!" 
END 

End Sob 

Rem *m PRCEUD 

Sub Tenselnit 0 

Call Hake Rule Control Table 
CNS_KOTJiUILSlring « ChrlW) 'As String 

CNSJtOTjaiHJnieger * -32768 'As Integer 

CNS JTOTJKUH _Boo 1 ean » Fa 1 se ' As Boo 1 ean 

CNSJJOTJvUHJLong ■ -2I4748364M 'As Long 

CKUOT JHBLS ingle ■ -3. 402823E«8 ' As S i ngl e 

CNSJJOTjaiLOouble = -4. 9406564584 1 247B-324 'As Double 
CNSJi0T_H7LVar!ani - -4. 94D65645B41247E-324 'As Variant 
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CSSJK>T_KlILCnrrency ' -922337203685-1773 
CKSJIOTjaiLBvle » 255 
CSS.NOTJiWUtale ■ 993999 



'As Currenci 
'Ab Byte 
*As nale 



' Call SHFlrslPallelld 
End Sub 

Sun SrleclNe\iPallet 0 
Ret Index 1 « 0 
Rcllndex2 « 0 
Rctlndcx3 « 0 
Rctlndei'l - 0 
Rcllnde\5 = 0 
RctlndrxG = 0 
Rctlndex7 = 0 
Rctlndex8 = 0 
Rctlndcx9 = 0 
RcllndexlO ■ 0 
Rcllndexll = 0 
Rcllndexl2 * 0 
Rcl Index 13 = 0 
Rcl I ndex M «= 0 
Rcllndexlo = 0 
Rctlndexl6 - 0 
Rcl Index 17 = 0 
Rcllndexl8 = 0 
Rctlndexl9 = 0 
Rctlndex20 ■ 0 
Pallet IDJtow « CTR_NEXT_PAUET_lD_OLI> 
Do Until RCHRclIndexD.No < I 

II Md (RCT (Ret Indexl). Pal ID. I. Len {RCT (Rcl Indexl). Pal ID) - 1) _ 
= UldtPallcllDJiow. I. LenlPalletlDJJow) - 1) _ 
And RCT (Rcl Index 1) . Route Code « 'R3R* Then 

U RCT (Rcl Indexl). SendedRoutelD O ' V Then 

CTRJ»En_PALLETJlLOI.I) * RCT (Rcl 1 ndex I) . NPMJ53R 
CTR_>"EXT_PALLET_ I D _NES = " 
RCT (Ret Indexl). SendedRoutelD = ' V 
Ret Indexl * 0 
Rctlndex2 * 0 
Rctlndex3 » 0 
Rcllndex4 - 0 
Rctlndex5 = 0 
Rctlndex6 = 0 
Rctlndex7 « 0 
Rcllndex8 « 0 
Rctlndex9 = 0 
RclIndexlO * 0 
Rcllndexll « 0 
I RcllndexU = 0 

Rctlndexl3 = 0 
Ret I ndex 14 = 0 
Rcl Index 15 « 0 
Rctlndexl6 = 0 
Rctlndexl7 <= 0 

Ret Index 18 = 0 
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n u v hataufltt (<i> o ) (gaff; 3 2 ooo-4) 

Ret Index 19 = 6 ' 
Rctlndex20 ° 0 
Exil Sub 

Else GoTo B0XJO.TRANMTION CHK 
End U 
End If 

Rcllndexl = Ret Index I * 1 
Loop 

MsgBox "Error*. vbCritical 
BQXJ0_TRANSlTlONj:HK: 
Ren PRVL6 

*ir Faiietinjfov « exiaoe 

And (nRL«6%3O^ei2S6.M296„12_STS.TRAVSITI0NJLC O 0 
Or CTRL_«6i;30^eS28Mli29!f - OCSTS_TRAXSITION FLU O D) 
then GoTo BOX»IO_TRANSITI0N„ON 

GoTo BOXJOJTRANSITIOSJIFF 

BOXJO.TRANSITIOMN: 

CTR_KEXT_PALLET_I n^OLD * RCKRclIndexl). NPID R3R 
CTC_NLXTJ>AUETJDJiEW • " 

RCT (Ret Index D.SendedRoulelD » T 

Rellodexl = 0 

Rct!ndex2 = 0 

Rclindex3 » 0 

Retlndex4 * 0 

RclIndexS « 0 

Rcllndex6 = 0 

Rcllndex7 = 0 

RcUndexS = 0 

Retlndex9 » 0 

Ret Index 10 = 0 

Rcllndexll « 0 

Ret Index 12 s o 

RcllndexIS = 0 

Ret Index 14 - 0 

RcOndexIS = 0 

RcUndexl6 = 0 

RctlndexH * 0 

Rc I Index 18 > 0 

RctIndexI9 ■ 0 

Rctlndex20 = 0 
Exil Sub 

B0XJO_TRANSITION_OFF: 

Do Cntil RCT(RctIndex2».No < I 

If Kid (RCT (Rcllndex2). PallD, I, Len (RCT(RctIndex2). Pat ID) - I) 
= NldCPallellDJiow, J. Len (PalleilDJJow) - I) 
And {RCT(RclIndex2).RoaleCode = 'R3C _ 
Or RCT{RcUndex2).RoaieCode = 'R3ir 

Or RCT{RciIndex2).RouleCode * *R3M*1 Then GoTo BOX_SELECT CM! 
End If 

Rcllndex2 » Rctlndex2 t 1 
Loop 

CTRJfEXT_PALLfflLl DJJLD = RCT (Ret Index II. NPIDJKR 
CT1LNEXT,PALLET_)P_NEa = " 
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/t^-y h&*ff»aft (3'Q) (g%fftl}2 0 0 0- 5> 

RCTlRcllndexU.SendedRoulelD * * J" 
RcllDdexl - 0 
Rc I Index 2 * 0 
Rcllndex3 = 0 
Rctlndex4 = 0 
RclindexS = 0 
RctlndexG ■ 0 
Rctlndex7 ■ 0 
Rctlndex8 - 0 
Rctlndex9 * 0 
RclindexlO = 0 
Rc l Index 11 = 0 
Rcllndexi2 « 0 
Rcllndexl3 ■ 0 
Rc I Index 14 » 0 
Rcl Index 15 ■ 0 
Ret Index 16 = 0 
Rcllndexl? = 0 
Rctlndexl8 = 0 
Rctlndextg = 0 
Rcllnde\20 ■ 0 
Exit Sub 

BOX_SELECT.CDU: 

Do Until RCT(Rctlndex3> No < 1 

If Mid(RCTlKciIndex3j.PalIl). 1. Len(RCT(RctIndcx3I. PallD) - 11 _ 
= Mid(PalletIDJ!ow. I. Len (PallellDJtow) - I) _ 
And RCT <RclIndex3).Col * I _ 
And RCT (Rcl IndexS) . Row a I _ 
And RCT(Rcltndex3).RouteCode = *R3C* _ 
And RCT(Rctlnd«3). SendedRoutelD = T Then 
Rctlndex-I = Rctlndex4 * 1 
)l Rctlndex4 = BCT (Rcl Index3).NextPal lets Then 
Do Unl 1 1 RCT (Rcl IndexS) . No < I 

RCT(Rctlndex5).SendedRouteID = " 
Rctlndex5 * RcllndexS > I 
Loop 
Exit Do 
End If 
End IT 

Rctlndex3 = Ret IndexS 4 1 
Loop 

Do Until RCTtRcilndexW.No < I 

U Hid(RCT(Rctlndex6).PallI). 1. Len (RCT (Ret Index 6). Pal ID) - !> _ 

= md(Pal!eUD_No», I. Len (PallellDJtow) - 0 _, 

And RCT (Rctlndexfi). Rout eCode = *R3D' _ 

And RCT(RclIndex6).SendedRomelD O * I* Then 

CTRJJEXT JALLET.l D.OLD » RCT (Rc tlndex6). NPI D_R3D 

CTR_NEXT_P ALLET_ I D_NE* • " 

Ra(Rcllndex6).SendedRouteID « 'V 

Rcilndex7 B 0 

Do Until RCT(RclIndex7).No < I 

If UJd (RCT (RcUndex7). PallD. 1. Len (RCT (Ret tndex7>. Pal ID) - 1) _ 
* md(PalietID_Xow, I. Len(Pa1letID,Noff) - 1) = 
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And RCT (Rc t Index?). Rout eCode = *R3C* Then 

Rctlndexl • 0 

Ret Index2 = 0 

Rcl!ndei3 = 0 

Rcllndex4 = 0 

RclIndexS = 0 

RcllndexC = 0 

Ret Index? = 0 

Rctlndex8 * 0 

Rctlndex9 - 0 

Ret Index 10 = 0 

Rcl Indexl 1 * 0 

RcllpdwlZ ■ 0 

RctIndrxJ3 * 0 

RctlndexM ■ 0 

RctlndexlS = 0 

RcllndexIS = 0 

Rcl Index 17 = 0 

Rcl Index 18 - 0 

Rctlndexl9 = 0 

Ret Index 20 - 0 

Exit Sub 
End If 

RcUndex7 ' 8cllndex7 + 1 
Loop 

Rcllndex8 * 0 

Do Until RCT(RctIndex8».No < 1 

If Sid(RCTtRctIndex8). PallD. I. Len{RCT(Rcllndex8). PallO) - 1) _ 
« Mid(PalleUD_Now. }. LenlPalletlDJtovrt - I) . 
And RCTtRclIndexB). RouieCode * *R3N" Then 

Ret Index) * 0 

Rcllndex2 ■ 0 

Rcilndei3 * 0 

Rcllndex4 ■ 0 

Rctlndex5 = 0 

Rctlndex6 ■ 0 

Rctlndex7 ■ 0 

Rctlndex8 - 0 
I Rcllndex9 = 0 

Rcl Index 10 = 0 

Rcl Index!) = 0 

Ret Index 12 ■ 0 

Ret IndexI3 ■ 0 

RctlndexU ■ 0 

RctlndexlS = 0 

Rctlndextf = 0 

Rcllndexl7 « 0 

RctlndexlS ■ 0 

Rcl Index 19 ■ 0 

RctlndexM = 0 

Exit Sub 
End If 

RclIndexS c Rctlndex8 + I 
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U y h&flKEl& < 4' 0 > (ffJUOT 2 0 0 0-7) 

Loop 

RCTlRclIndexfiKSendedRoulMD « " 

Rctlndex9 = 0 

Do Until RctlmJrx9 = 10 

If RCT(RctIndex6>.SendedR3CJT03lD(Rcllndex9) = " Then Exit Do 
Rct)ndexi7 = 0 

Oo Until RCT (Ret Index 17). No < 1 
IT RCT(Rctlndexl7).Palin = 
RCT (Rc 1 1 ndex6) . SendedR3C J 03 1 D IRc 1 1 ndex9) 
And RCT (Ret Index 17). Ron leCode * *R3C _ 
And RCT<Rctindexl7).NPlD_R3C 
* RCT (Rcllndexfil . SeBdedR3CjrOJin (Re l Index 9) Then 

RCT(Rclindexl7J.SendedRoatelD = * V 
End II 

Rcllndexl7 « Rctlndexl7 * 1 

Loop 

Rctlndex9 = Rcllndex9 t 1 
Loop 

Rc! Index) = 0 

Rcllndex2 = 0 

Rctlndex3 ■ 0 

Rctlndex4 = 0 

Ret Index 5 = 0 

Ret Index 6 - 0 

Rctlndex7 « 0 

Rctindex8 * 0 

Rcllndex9 ■ 0 

Rcl Index 10 = 0 

Rcllndexll = 0 

Rcl Index 12 ■ 0 

Ret Index 1 3 = 0 

RclIndexU = 0 

Rcl Index 15 = 0 

Rcllndexl6 ■ 0 

Rcl Index 17 « 0 

Rcllndexl8 = 0 

RctindexI9 = 0 

RctlndexZO = 0 
Exit Sab 

End If 

Rcl Index 6 = RclIndexB + I 
Loop 

Do Until RCT (Rc t Index 10) .No < 1 

If Mid (RCT (Rcl Index 10). Pal ID. I. Len (RCT (Ret Index 10). Pal ID) - il _ 

= yid(PalletIDJ(ow. t. Len (Pal let ID Jori - II _ 

And RCTffictlndexlOhRouleCode * *R3M" _ 

And RCT(RcllndexlO).SendedRouieID O T Then 

CTRJJEXT.PALLET_ID_0LD » RCT (Rcl IndexlO) . NPIDJ13M 

CTR_NEXTJ>ALLETJflJlEft = " 

RCT(RcllndexlO).SendedRouteID = ' V 

Ret Index) 1 - 0 

Do Until RCT (Rcl Index 11). No < 1 

If Mid(RCT(RclIndexll).PaUD. 1. Len (RCT (Rcl Index 11). Pa IIP) - I) _ 
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- Mid (Pa)l eMMow. I. Len (Pallet I Oira) - U _ 
And RCT (Re i Index III. RoaleCode = ' R3C Then 

Rci lodexl « 0 

Rcllndex2 » 0 

Rcilndex3 - 0 

Rcllndex*! = 0 
| RctlndexS = 0 

Rcllndex6 = 0 

Ret Index? * 0 

Rcllndex8 = 0 

Rcllndex9 * 0 

Rcl Index 10 ■ 0 

RclladexU - Q 

Rctlndexl2 = 0 

Rctlndexia = 0 

RcllndexM = 0 

Ret Index 15 c 0 

Rcllndexl6 c 0 

Rcllndexl? = 0 

Ret Index 18 ° 0 

Rctlndexl9 = 0 

Rcllndex20 = 0 

Exit Sub 
End If 

Rctlndexll = RcMndextl * 1 
Loop 

RCT(RclIndexlQ).SendedRouieID * " 

RcllndexIS » 0 

Do Until Rcl Index 1 8 «= 10 

If RCTlRcllndexlO).SendedR3C303ID(Rclindexl8) * " Then Exit Do 
Rcllndexl9 = 0 

Do Until RCT (Set Index 19). No < 1 
If RCT (Rcl Index 19). Pa 111) 

= RCT (Ret Index 10). SendedR3CJiQ3ID(Rcl lnd«18) . 
And RCT(RclIndexl9).RouleCode «= *R3r m 
And RCTIRctIndexl9).NPllJ_R3C 
- RCTlRcllndexlO).SendedR3CJQ4ID(RcllndfXl8) Then 
RCTfRctIndexl9).SrndedRouteID = 'I* 
End U 

Rctlndexl9 = Rctlndexl9 * 1 

Loop 

Rctlndexl8 - Rctlndexl8 + I 
Loop 

Rctlndexl = 0 
Rcllndex2 * 0 
Rcl!ndex3 = 0 
Rcllndex4 = 0 
RclIndexS » 0 
RclIndexG ■ 0 
Rctlndex7 « 0 
RcltndexB » 0 
RctlndexS * 0 

RclIndexlO = 0 
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RctlndexU = 0 
RctlndexU • 0 
Rcttndext3 = 0 
RctlndexU = 0 
Rctlndexlo * 0 
RctlndexlG * 0 
Ret Index 17 - 0 
Ret Index 18 = 0 
Rcllndex)9 ■ 0 
Rcllndex2G « 0 
Exit Sab 

End U 

RctlndexlO ■ RciIndexlO t 1 
Loon 

Do Until RCT (Ret Index 12). No < I 

U RCT(Kcl!ndexl2) - PallD * PallellD_No» . 
And RCT (RctlndexU). Rout rCode « 'R3C* Then 

GoTo B0X_j\LL_R3C_SEM>ED_CIIK End 1 I 
RctlndexU - Rctlndexl2 1 I 
Loop 

Ret Index 1 = 0 
Rctlnde\2 = 0 
RcllndexS = 0 
RcllndeH = 0 
RctlndexS ■ 0 
RctlndfxB « 0 
Rcllndex7 = 0 
Rcllndex8 « 0 
Rctlndex9 « 0 
RciIndexlO * 0 
Ret Indexll = D 
Rcllndexl2 ' 0 
Rcllndexl3 = 0 
RctlndexU » 0 
RcllndexlS « 0 
RctlndexU • 0 
Rctlndexl? = 0 
RctlndexU ■ D 
Ret Index 19 - 0 
Rcllndex20 *» 0 
Call OnErrorPRC 
Exit Sub 
[MX_ALL_R3C_SENDED_CHK : 

Do Until RCT (RctlndexU). No < I 

If RCT (RctlndexU). PallD = Pallet IDJtow _ 
And RCT(RcllndexU).RouteCode » 'R3C* _ 
And RCT (Ret Index UhSendedRonl el D = T Then 
RctlndexU - RctlndexU 4 1 
H RCT (RctlndexU). Next Pallets - RctlndexU Then 
Ret Index I » 0 
Rcllndex2 ■ 0 
Rctlndex3 ■ 0 

Rctlndex4 «= 0 
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RctlndexS « 0 
Rctlndcx6 = 0 
Rcilndex7 = 0 
Ret tcidcs8 = 0 
Rclindex9 ■ 0 
RclIndexlO = D 
Rcllndexll = 0 
RclIndexU = 0 
Rcllndexl3 = 0 
RcllndexM = 0 
8c I Index 15 * 0 
RctlndexlG = 0 
Ret Index 17 = 0 
Ret Index 18 ■ 0 
Rctlndexl9 ■ 0 
Rctlndfx20 = 0 
Call OnErrorPRC 
Exit Sob 

ir 



Re I Index 13 i 1 



End 
End II 
Rc I Index 13 
Loop 

Du Unlit RCT (Ret Index IS). No < I 

W RCT(RcUndexl5>.PallD - PalletlD^Now _ 
And (RCT(Rcllndexl5).RonleCode = 'R3D* _ 
Or RCTlRctlndexl5).RouleCode « 'R3ir> Then 

RCTtRcllndexlShSendedRoulelD = *' 
End U 

RctlndexIS » Ret Index la + I 
Loop 

Do Until RCT (Ret Index 16). No < I 

II RCT(Rcilndexl6KPallD * PalletlDJJow _ 

And RCTtRcllndexlW.RouteCode * " R3C" _ 

And RCTlRclIndexlBI.SendedRoulelD O T Then 

CTR_NEXT_PALLETJD_OLD = RCT (Rc I Index IB) . NPI D_R3C 

ctoextj>alletjd_nek « " 

RCT(RctIndexl6).SendedRouleiD ■ T 
Rc I Index I = D 
0 
0 
0 
0 
0 
0 
0 
0 

= 0 



Rcttndex2 ■ 
Rctlndex3 
Rcllndex4 
RcllndexS ■ 
Rcllndex6 = 
Rc I Index 7 
Rcilndex8 » 
RellndexH ■ 
Ret Index 10 
Rcllndexll 
Ret )ndexl2 
Rc i Index 13 
Rc i Index 14 
Ret Index 15 
Rctlndexl6 



0 
0 
0 
0 
0 
0 
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/tw v vmmvk (<i» o ) vsmftn 2 0 0 0 - 1 u 

Rctlndex)7 * 0 
RcllndexlS = 0 
Rcllndexl9 » 0 
Rcllndex20 = 0 
Exit Sub 

End If 

RcllndexlG = Rctlod«l6 4 1 
Loop 

MsbBox 'Error*. vbCrltical 
Call OnErrorPRC Exit Sub 

End Sub 

Sub SrtFlrstPalleild 0 
Rrllndex = 0 

Do Until RCT (Ret Index). No < 0 

II RCT (Rci Index). Row « 1 And RCT (Ret Index) . Col « 1 Tben 
I CTRJCEn_PALLET_l D_SE» = Lell (RCT (Rcl Index) . Pal ID. Len (RCT (Rc t Index) . Pal ID) - 1) t ' 4* 

•Ret Index * 0 
Exit Sub End If 
Ret Index * Rcl Index ) ) 
Loop 
End Sub 

Sub RunPallels 0 
Ren CALLPLT 

If CTR_N ECT_PALLETJ D JJLD = 'MPAL1D8" Then Yn Call MPALID* ¥n Exit Sub Vn End If 

End Sub 

Sub OnErrorPRC 0 END 
End Sub 

Sub UakeRuleControlTableO 
Ret Index = 0 

Open ' syubetu.uul. txt' For input As 31 
Do Unill EOF (I) 
Line Input 31. InpuiRCT 
split Ex InputRCT. vbTab. FurSplilO 
RCT (Rc t Index) . No = ForSpl i I (0) 
RCT(RclIndex).SFID = ForSpl i 1(1) 
RCT (Ret Index). Row = ForSplittt) 
RCT (Ret Index) . Col = ForSpl it 13) 
RCT (Rcl Index). Pal ID = ForSplIl (4) 
RCT (Ret Index) . SubNo = ForSpl i t (5) 
RCT (Rcl Index) . RouleCode «= ForSpl i t (6) 
RCT (Rcl index). Next Pa I lets * ForSpl it (7) 
RCT (Rcllndexl. NP1D.R3R = ForSpl It (8) 
RCT (Rcl Index). W1D_R3H ■ ForSpl It (9) 
RCT (Rcl Index). NPIDJUD = ForSplitUO) 
RCT (Rcl Index) . NPID_R3C « ForSpl 11(11) 
RCT(RcUndex).SendcdRouleID = ForSpl 11(12) 
Rcllndexl = 0 
Do Until Rcllndexl = 10 

spittEx ForSpl it (13 t Rcllndexl). '.*. ForSpl H2 0 

RCT<RcUndex).SendedR3C_*03ID(RctIodexl) » ForSpUt2(0) 

RCT (Ret Index). SendedR3CJI 04 ID (Rcllndexl) = ForSpI)t2ll) 

ForSpl 1 12(0) * *' 

ForSp I i 12(1) = " 
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JxU-y Sai|flP9& U>0) (ffgffi32 0 0 0- 1 2) 

Rclladexl = Rcllndexl ♦ I 

Loop 

Ret Index = Ret Index t 1 
Loup 
Close 31 
InpuLRCT * " 
Rc I Index = 0 
Ret Index 1 9 0 
ForSpilt 10) 
ForSplilll) * ** 
ForSplil CO * " 
ForSplit (3> * " 
FnrSplilM) = "* 
ForSpl il (51 * " 
ForSplit(O) - " 
ForSplil (7) * ** 
ForSpl 1 1<8) « " 
ForSplil (9) = " 
ForSplil (10) * " 
ForSplil (II) 3 " 
ForSplil (12) = " 
ForSplil U3) * " 
ForSplil (14) ■ " 
ForSplil (15) * " 
ForSplil (16) = " 
ForSplil (17) » " 
ForSplil (18) ° " 
ForSplil (19) = " 
ForSpl 11(20) - " 
ForSplil (21) • " 
ForSpl it (22) « " 
End Sub 

Public Sub splilExlsText As Siring. sl)el loiter As Siring, ByRef sResultO As String) 
Din ILenText As Long 
Din IPos As Long 
Din IFindPos As Long 
Din I As Lons 
RcDln sResolltOl 
lLcnTexl 3 Len(sText) 
If ILenText » 0 Then Exit Sub End 11 
i = 0 

For IPos ■ 1 To ILenText 

IFindPos* InStrllPos, sTexl. sDellmher) 

If IFindPos « 0 Then IFindPos « ILenTexl t I 

ReDin Preserve sResull(i) 

sResnlt(l) ■ MldltsTexl, IPos. IFindPos - IPos) 

1 = 1 + 1 

IPos * IFindPos 
Next 

If Mid$lsTexl. ILenTexl. 1) * sl)el loiter Then 
RePiB Preserve sResull 11) 
sResultli) ■ " End U 
End Sub 
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WO 2/xU-/ hfiOtt (<I»2> (g@ffir^2 10 0-1) 

Option Explicit 
Rem SMFPUB 

Private m_\'E!rLPALLETJD_NE» As Siring 
ReD PLB4N2 
Ret) PI-B5C2 
Rem PUB5Y2 
Ren PUB5B2 
Rem PUBHF2 
Rem 3 DEFEND 
Rem PUDIN2 

Public Gyou as Integer 

Public Relu as Integer 

Public Ult.Cnl as Integer 

Public Solo_Cnt as Integer 

Public Itijdax as Integer 

Poblic Solojlax as Integer 
Rea 3DEFF1N 
Rem 3DEFPRV 
Rem PRVZT2 
Ren PRV7R2 
Rem PRY2tt2 
Rem PRV4B2 

Rem * PUBKU 

Private CNSJiOTJOIILSlring As String 

Private CNSJiOOUILlnteger As integer 

Private CNS_NOT_KUOoolean As Boolean 

Private CNS_NOT_KUH_Long As Long 

Private CNS_N0TJCUH_S ingle As Single 

Private CNSJTOTJTOHJtouble As Double 

Private CNSJTOT.KliJD'a riant As Variant 

Private CNSJ*OT_Kl!LCuTrency As Currency 

Private CNSJWTJMLByte As Byle 

Private CNSJiOTJiOOale As Date 
Rem SDEFEND 
Ren PaLID 

Public Sub 6XPALID8 0 

MAIS_START: 

Rem PRVLG 

CTRL_V#X30«_6X28M*296_STS_TRANS1TION_FLG = 0 

Rem PRVLG 

CTRL.*M30i.§X28&.M29§_STS_TRANSlTI0N_FLGJ' = 0 
Rem PRVLG . 

CTRL_m30MX28§_«29e„STS„TRANSITION_FLG_PP = 0 

Rem PRVLG 

CTRLJM30&_«28e_W298_l2.STS„TRANSlTI0NJLC * 0 
Rem PAL2T2 
Rem PAL6F2 
Rem PAL7F2 
Rem ♦VecID 
Rem CALLVA 

B0X_MPAL1 B§_RERUN_PO INT : 
Rem PRVLG 

CTRL_IW308_W28MX29S.STSJR.\NSIT10N_FLGJ > P _ 
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W 0 2 K U y (<I> 2 ) <gg#J3- 2 10 0-2) 

Rem PRVLG 

= CTRL J*@X30O»28@_^29@_STS^TRANS I T 1 ON _FLG J 

Rem PRVLG 

CTRL J«30OS28O"29@_ST S_TRANS I T I ON^FLGJ* _ 

Rem PRVLG 

= CTRL JM30O%28O*29GJ$TS JTRANSIT ION _FLG 
Rem *VeclD 
Rem CALLVL 
Rem PRVLG 

If CTRL_W65530^@%28@^29@ - STS_TRANSITIONJ1GJ O _ 

Rem PRVLG 

CTRL_W^30O^28O«29@„STSJRANSITI0NJLG..PP Then 
GoTo B0X^@%PAL]I)§_RERUN_P0INT 

End If 
Rem *VecID 
Rem *CALLVR 
Rem *YecID 
Rem CALLVR 
MAINJND; 
End Sub 
Rem VECPRC 
Rem PRCEND 
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wo3mu v hnaa (»3) (g^2 2Qo-p 

Option Explicit 
Ren 3DEFPUB 

Private CTR,NEXTJ>ALLETJDJiE» As Siring 
Reo PUB1N3 
KeQ PUBSC3 
Kcd PlfB5Y3 
Ren PUB5B3 
Ren PUB6F3 
Reo s DEFEND 
Ren PI BIN3 

Public Gyou as Integer 

Public Relu us Integer 

Pnblic Ulijnt as Integer 

Public Soto_Cnl as Integer 

Public UliJIax as Integer 

Public SoloJIax as Integer 
Reo JDEFFIN 
Ren SDEFPRV 
Ren PRV2T3 
Ren PRV7R3 
Ren PRV2B3 
Ren PRY4B3 

Ren * PlIBKU 

Private CNS_NOTJvUH_Slring As String 

Private CNSJlOTJOHLlnteger As Integer 

Private ENSJlOTJOHLBoolean As Boolean 

Private CNSJtOT_KCHJ.OBg As Long 

Private CNSJiOTJOflLS ingle As Single 

Private CNSJlOTJCOHJlouble As Double 

Private CNSJMJTJMLVariaol As Variant 

Private CNSJiQTJilTLCurrency As Currency 

Pr 1 va t e .CNS JiOTJCUHJly I e As By I e 

Private CNSJtOTJOHLDate As Dale 
Ren SDEFEND 
Ren PaLID 

Public Sub 8XPAL1D9 0 

MAIN.START: 

Ren PBVLG 

CTM._m30e_«28l_6X29&_STS_TRANSlTIOILa6 = 0 

Ren PRVLG 

! CTRL_i§X30§„W28§.«X29^STS_TRAKSlT10N_FHLP ■ 0 

Ren PRVLG . 

CTRLJ«30§_§»28§_W298_STS_TXANS1T10N_FLG_PP = 0 
Ren PAL2T3 
Ren PAL6F3 
Ren PAL7F3 

BOX JXPAL I DB_RERl\.P01 NT : 
Ren PRVLG 

CTRL_« W30e_§X28&.«S296.STS_TRANS I T I ON JIG J? _ 

Rem PRVLG 

' CTRLJ6»30MX2SM*29e_STS_TRANS1TI0N_FLGJ> 

Ren PRVLG 

CTRLJ9i30e_e>28&_eX298_STS_TRANSlTIOS_FLG_P , 
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\V0 3A'l/7hSIS (<1>3) (fIi^2 2 0 0-2) 
Rem PRVLG 

= CTKLJ«XS0fl J*28«.§X29§ - STS_TRANS 1 TIONJLG 
Rem CALLVL 
Rem PRVLG 

If CTRLJ®»30O3S28O»29e_STS_TRANSITI0N_FLG.P O _ 

Rem PRVLG 

CTRL J«X30§«§J528M»29« - STS_TRANS! HON JLLPP Then 
GoTo BOX.«PALIM_RERUNLP01NT 

End If 
Rem *VeclD 
Rem CALLVR 
MA1NJND: 
End Sub 
Rem VECPRC 
Rem PRCESB 
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ftO-St^ h/KT)© : 12 6-1 

WO hpqa <Q4) (gTO2 3 0 0-n 

Option Explicit 
Ken SDEFPUB 

Prlvaie nRJfEXmilETjnjfB As Siring 
Ren PUB4S4 
Ren PIBIN4 
Ren PUB4B4 
Ren PUBSC4 
Ren PUB5Y4 
Rem PUB5B4 
Rem PUB6F4 
Ren SI1EFESI) 
Res PUB4S3 

Public Gyou as Integer 

Public Relu as Integer 

Public Uli.Cnt as Integer 

Public Soio„Cnl as Integer 

Public Utljlax as Integer 

Public Solojlax as Integer 
Ren 4DEFFIN 
Ren SDEFPRV 
Ren PRV2I4 
Rem PRV7R4 
Rem PRY2M 
Rem PRY4U4 

Rem * PI BKU 

Private CNSJUOtfB.Strlng As Siring 

Private CNS_NOT_KniJnteger As Integer 

Private CNSJtQTJinLBoolean As Boolean 

Private CNSJlOTJiUlLLong As Long 

Private CNSJiOTJiCILS ingle As Single 

Private CNSJtOTJvTOoubl e As Rouble 

Private CNSJIOTJiClLYa riant As Variant 

Private CNS3'0TJiUJLCurrency As Currency 

Private CNSJiOTJOJlLByle As Byte 

Private CNSJUITJOflLDale As Dale 
Rem 3 DEFEND 
Rem PaLID 

Public Sub OSPAUDBO 

UA1N_START: 

Rem PBVLG 

CTRLJWJOe.waRMXZgMTS.TRANSITlONJLG « 0 
Rem PRVLG 

CTRlJW308_ex28MJ!29e«STS„TRA.NS!TION_FLG_P = 0 
Rem PRMG 

CTRL_»§X30§_W28§_eX296.STS_TRANSlTiONJ ; LGJ»P = 0 

Rem PRVLG 

CTRL_iW30MX28d_«296_04.STS - TRASSIT10NJ J LG » 0 
Rem PAL2T4 
Rem PAL4U4 
Rem PAL6F4 
Rem PAL7F4 

BOX.KPAL I D6_RERUN_P0 1 NT : 
Ren PRVLG 
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W0 4^l/yHa» (<E4) (fl^23Q0-2) 

CTRL_M«30§_«X28OX29©_STS_TRANSITI0NJ r LCJP _ 

Rem PRVLG 

= Cm - «W30i.«28i.K29i.STS.TRAHS I T I QNJFLGJ* 

Rem PRYLG 

CTRL JW3 MJ&% 280X2 9§_STS_TRANS I T 1 0N_FLG J> _ 

Rem PRVLG 

= CTRL_W@% 30§ JX28«_§X29§_STS JTCASS I TI0N_FLG 
Rem CALLM 
Rem PRVLG 

If CTRL_W^30«_@5528§.@5S29©_STS_TRANS1TIONJ ? LGJ» <> _ 

Rem PRVLG 

CTRLJ'8X30«JX28MX298JTSJRAHSTTI0SJLGJ , P Then 
GoTo BOX JlfcPAL 1 DOERUN JOINT 

End U 
Rem *VeclD 
Rem CALLYA 
Rem *VecID 
Rem CALLYR 
Rem *VecID 
Rem CALLVS 
MAINJND: 
End Sub 
Rem VECPRC 
Rem PRCEND 
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